回答編集履歴
3
推敲
test
CHANGED
|
@@ -14,6 +14,6 @@
|
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
17
|
-
acApp.DoCmd.TransferText acExportDelim, , "T
|
|
17
|
+
acApp.DoCmd.TransferText acExportDelim, , "T社員データ", path, True
|
|
18
18
|
|
|
19
19
|
```
|
2
追記
test
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
1
|
DoCmdはそのAccessファイルに対して行うものなので、参照が必要です。
|
|
2
|
+
|
|
3
|
+
[アプリケーションの OpenCurrentDatabase メソッド (Access)](https://docs.microsoft.com/ja-jp/office/vba/api/access.application.opencurrentdatabase)
|
|
2
4
|
|
|
3
5
|
```VBA
|
|
4
6
|
|
1
追記
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
Set acApp = New Access.Application 'オブジェクト変数のインスタンス化
|
|
10
10
|
|
|
11
|
-
acApp.OpenCurrentDatabase
|
|
11
|
+
acApp.OpenCurrentDatabase(ConPath, False, ConPass) 'データベースファイルをオープン
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|