| |
▼Jaka さん：
アドバイスありがとうございます。
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & myfile _
にしてみたら動作しました。
最初、ThisWorkbook.Pathを使用してみたのですが、書き方が悪かった
らしく上手く行かなくて・・
CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" &
を使ってみたり、御察しのとおり混乱してました。
（どうも私は根っからのパス音痴の人間のようで）
長い道のりでしたが、なんとか動くようになってホッとしています。
この度は本当にありがとうございましたm(_ _)m
>▼TEST さん：
>>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
>
>結論から言いますと、見ている場所が違います。
>また、自分で見ていると思っている場所も見当違いの場所です。
>>>myfile = Dir(ThisWorkbook.Path & "\*.tsv")
>↑ここで、コードが書いてあるブックのディレクトリを見ているのに
>なんで、
>↓デスクトップを見るのですか？
>CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & myfile
>
>こんがらがっているのか解りませんが、もう少し整理してみてください。
>パスの意味を理解できないで、パスのコードをあちこち移動させても、
>ドつぼにはまるだけです。
|
|
TEST
- 08/4/14(月) 18:27 -
