読者です 読者をやめる 読者になる 読者になる

自分用めも

初心者ちっくなプログラムネタを中心に、自分用の覚え書きをメモっていくための場所です。

excelVBAで、ファイルのあるカレントフォルダを取得する

CurDirでカレントフォルダが取得できるが、
欲しいのはそれじゃなくファイルを開いている場所のpathだよ!って場合

下記変数を参照する。

ActiveWorkbook.Path

例えば「名前をつけて保存」のデフォルトフォルダを
カレントに指定したい場合

ChDrive (ActiveWorkbook.Path)
ChDir (ActiveWorkbook.Path)

str_filename = Application.GetSaveAsFilename( _
    InitialFileName:="default_name", _
    fileFilter:="SQLクエリ (*.sql),*.sql" _
)