Sub PageUpCSV(objIE As Object) With objIE .Visible = True 'fileの入力 form name =CSVFile .Document.all.CSVFile.Select 'ファイル入力窓を開く Application.SendKeys " C:\test.txt ", True 'ダイアログにファイル名を送信 'Application.SendKeys "%o", True 'ALT+oを送信=ダイアログの開くをクリック ' . . その他処理 . End With End Sub 2007だとどうしてもC:\test.txtがダイアログに記入されません。空白のままです。 初めての2ch書き込みで失礼があるかもしれませんが、どうかお力を貸してください