|
こんばんは
そのメッセージで表示されたのはファイル名だけですよね?
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
>
>にするとちゃんとメッセージをだしてくれるのに
>
>なぜだか分りません。
>
>どこが悪いのでしょうか?
>
>お時間ある方、もしよければお知恵をお貸しください。
>
>よろしくお願いします。
|
|