|
▼Jaka さん:
アドバイスありがとうございます。
myfile = Dir(ThisWorkbook.Path & "\*.tsv")
MsgBox ThisWorkbook.Path
Do Until myfile = vbNullString
Workbooks.OpenText Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & myfile
とやってみたのですが、どうも下記バス内にあるファイルが存在するに
も関わらず、そのファイル(test.tsv)が見つかりませんというメッセージが出て
エラーになります。
パスをもう少し詳しく書くと、
C:\Documents and Settings\test.TES\デスクトップ\vbatest
でvbatestフォルダー内にtest.tsv
というファイルとマクロのtest.xlsファイルを置いてあるといった感じ
なのですが・・。
>>Workbooks.OpenText Filename:="C:\Documents and Settings\TEST\デスクトップ\vbatest\"& myfile
>
>>ただ、この場合だと他のフォルダー名で作業を行う際や
>>他のPCで作業する際にVABスクリプトの部分のTESTとvbatest
>>を都度、修正しなければならないと思うのですが、
>>この都度、修正をしなくて済むフォルダのパスの書き方は
>>あるのでしょうか?
>???
>
>パス = ThisWorkbook.Path
>パス = CreateObject("WScript.Shell").SpecialFolders("Desktop")
>
>などどれか、(使用状況ががわからないけど。)
>
>Filename:=パス & "\" & myfile
>
>ってやればいいです。
|
|