Excel総合相談所 62 - 暇つぶし2ch

Excel総合相談所 62 at BSOFT

148:名無しさん＠そうだ選挙にいこう
07/11/22 00:04:52
>>145
デスクトップのフォルダ名は以下のようなメソッドで取り出すことが出来ます。

CreateObject("WScript.Shell").SpecialFolders("desktop")

これを応用して書き換えるとこうなります。

Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("desktop") & "\aaa\bbb.csv"

これならユーザー名が変わってもWindowsのバージョンが変わってもそのまま使えます。

次ページ

続きを表示

1を表示