AccessVBAにて、CreateObject("Excel.Application")のパスを変えたい

触り始めて1ヵ月の初心者です。
AccessVBAでExcelオブジェクトを生成する際の、

Set xls = CreateObject("Excel.Application")

というコードがあります。
この時、xls.path を見てみるとEXCEL.EXEがあるフォルダに作られてしまいます。
これを任意のパスに変えるにはどうしたら良いでしょうか…。
教えていただけると助かります。

---------------補足-------------------

皆様ありがとうございます;;
パスは変えられないのですね、勘違いしていたようです。助かりました。

行動規範の内容に同意します

回答3件

CreateObject("Excel.Application")は、Excelのアプリケーションオブジェクトを作成するので、
インストールされているパスが出ます。

Excelのブックを作成し、その保存パスを指定したいのであれば、

vba
1Sub testcode()
2    Dim xls: Set xls = CreateObject("Excel.Application")
3    Dim bk: Set bk = xls.Workbooks.Add
4    
5    bk.SaveAs "C:\Users\test\Desktop\test.xlsx"
6    
7    bk.Close
8    xls.Quit
9End Sub

こんな感じで、保存するときにフルパスを指定します。

投稿2019/12/10 02:58

satoshi_tajima

総合スコア337

ベストアンサー

Set xls = CreateObject("Excel.Application")だけではファイルは生成されないので、
新規ブックを追加して保存するときのデフォルトのフォルダーのことだと推測して回答します。

ChDir でカレントディレクトリを変更すれば、そこがデフォルトのフォルダーになります。
別ドライブに保存したい場合は、ChDrive でカレントドライブを変更してから ChDir です。
AccessからはExcelのカレントディレクトリは変更できないようです。

下記の実行してみて、イミディエイトの結果をみて意味を考えてください。

vba
1Sub Sample1()
2    Dim xls As Object
3    Set xls = CreateObject("Excel.Application")
4
5    xls.Visible = True
6    Debug.Print xls.Path 'これは EXCEL.EXE自体のパス 変更不可
7    
8    Dim wb As Object
9    Set wb = xls.Workbooks.Add 'ここで新規ブックが追加される
10    Debug.Print "新規: "; wb.Path 'まだ、ファイルとして保存されていないので空白
11    
12    wb.SaveAs "test.xlsx"      'ファイル名だけだと
13    Debug.Print "保存後: "; wb.Path 'カレントディレクトリに保存される
14    
15    wb.SaveAs "C:\test\test.xlsx" 'フルパスだと
16    Debug.Print "フルパスで保存後: "; wb.Path 'そのフォルダに保存される
17       
18    
19    wb.Close
20    xls.Quit
21    Set xls = Nothing
22End Sub

投稿2019/12/10 02:56

編集2019/12/11 12:54

hatena19

総合スコア33699

yorozuya

2019/12/11 11:27

ACCESS と EXCEL では、別プロセスになりますので、 ChDir でカレントディレクトリを変更することはできません。 Option Explicit Sub Sample1() Dim xls As Object Set xls = CreateObject("Excel.Application") xls.Visible = True Debug.Print xls.Path 'これは EXCEL.EXE自体のパス変更不可 Dim wb As Object Set wb = xls.Workbooks.Add 'ここで新規ブックが追加される Debug.Print "新規: "; wb.Path 'まだ、ファイルとして保存されていないので空白 Debug.Print CurDir ChDrive "D" ChDir "D:\" Debug.Print CurDir wb.SaveAs "test2.xlsx" 'ファイル名だけだと Debug.Print "保存後: "; wb.Path 'カレントディレクトリに保存される Debug.Print xls.DefaultFilePath wb.SaveAs "C:\test\test2.xlsx" 'フルパスだと Debug.Print "フルパスで保存後: "; wb.Path 'そのフォルダに保存される wb.Close xls.Quit Set xls = Nothing End Sub