|
こんにちは。
助かりました!
ありがとうございました。
▼ウッシ さん:
>こんばんは
>
>そのメッセージで表示されたのはファイル名だけですよね?
>
>Workbooks.Open Filename:=mypath & mybook
>
>としないと。
>
>▼abc さん:
>>はじめまして。
>>
>>ファイルを順次オープンしたいのですがなぜか開けません。
>>
>>
>>sub test()
>>
>>
>>Dim mypath As String, mybook As String
>>
>> mypath = "c:\保存している場所\"
>> mybook = Dir(mypath & "*.xls")
>>
>> Do While mybook <> ""
>>
>> Workbooks.Open filename:=mybook
>>
>> ここにしたい処理
>>
>> mybook = Dir()
>>
>> Loop
>>
>>End Sub
>>
>>で、できると思ったのですが、なぜかファイルが開けません。
>>
>>
>>Workbooks.Open filename:=mybook
>>
>>の場所を
>>
>>MsgBox "ファイル名 " & mybook
>>
>>にするとちゃんとメッセージをだしてくれるのに
>>
>>なぜだか分りません。
>>
>>どこが悪いのでしょうか?
>>
>>お時間ある方、もしよければお知恵をお貸しください。
>>
>>よろしくお願いします。
|
|