
Option Explicit
Sub Dialoghiamo()
Dim strPath As String
Dim fdPath As FileDialog
strPath = "C:Documentipippo.txt"
Set fdPath = Application.FileDialog(msoFileDialogFilePicker)
With fdPath
.InitialFileName = strPath
.Show
End With
Set fdPath = Nothing
End Sub
|
Sub Macro()
Dim IE As Object
Dim spath As String
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "digilander.libero.it/mar_esp0/"
IE.Visible = True
Do While IE.Busy Or IE.ReadyState <> 4
DoEvents
Loop
IE.Document.all("fname").Click
End Sub
|
