質問編集履歴
2
みずらかったので
test
CHANGED
File without changes
|
test
CHANGED
@@ -24,8 +24,8 @@
|
|
24
24
|
Set ACCESSobj = CreateObject("Access.Application")
|
25
25
|
ACCESSobj.OpenCurrentDatabase (mdbpath)
|
26
26
|
ACCESSobj.Visible = True
|
27
|
-
|
27
|
+
|
28
|
-
↓ここで"リモートサーバがないか使用できる状態ではありません"
|
28
|
+
'↓ここで"リモートサーバがないか使用できる状態ではありません"
|
29
29
|
Set DB = currentDb
|
30
30
|
|
31
31
|
ws_sitei.Range("A2:A" & ws_sitei.Range("A2").Rows.End(xlDown).Row).Name = "指定テーブル"
|
@@ -35,8 +35,8 @@
|
|
35
35
|
|
36
36
|
'table_nameに入るテーブル名がCSV排出されます
|
37
37
|
table_name = r_sitei(i)
|
38
|
-
|
38
|
+
|
39
|
-
↓ここで"コマンドまたはアクション'テキスト変換'は無効です"
|
39
|
+
'↓ここで"コマンドまたはアクション'テキスト変換'は無効です"
|
40
40
|
DoCmd.TransferText acExportDelim, , table_name, path & "\" & table_name & ".csv", True
|
41
41
|
|
42
42
|
Next
|
@@ -51,9 +51,8 @@
|
|
51
51
|
|
52
52
|
MsgBox "end"
|
53
53
|
|
54
|
-
End If
|
54
|
+
End If
|
55
|
-
|
56
|
-
End Sub
|
55
|
+
End Sub
|
57
56
|
|
58
57
|
### 試したこと
|
59
58
|
set db = opendatabase(mdbpath)
|
1
エラーが出る場所を書くの忘れてましたので
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
### 実現したいこと&前提
|
2
2
|
|
3
|
-
ACCESSのバックアップ用に
|
3
|
+
ACCESSのバックアップ用に指定したテーブルのCSVを取得
|
4
4
|
ACCESSはmdbファイルで3つある。エクセルで操作することが前提
|
5
5
|
参照設定にACCESS16とACCESS databaseengin追加
|
6
6
|
|
@@ -25,6 +25,7 @@
|
|
25
25
|
ACCESSobj.OpenCurrentDatabase (mdbpath)
|
26
26
|
ACCESSobj.Visible = True
|
27
27
|
|
28
|
+
↓ここで"リモートサーバがないか使用できる状態ではありません"
|
28
29
|
Set DB = currentDb
|
29
30
|
|
30
31
|
ws_sitei.Range("A2:A" & ws_sitei.Range("A2").Rows.End(xlDown).Row).Name = "指定テーブル"
|
@@ -34,7 +35,8 @@
|
|
34
35
|
|
35
36
|
'table_nameに入るテーブル名がCSV排出されます
|
36
37
|
table_name = r_sitei(i)
|
38
|
+
|
37
|
-
|
39
|
+
↓ここで"コマンドまたはアクション'テキスト変換'は無効です"
|
38
40
|
DoCmd.TransferText acExportDelim, , table_name, path & "\" & table_name & ".csv", True
|
39
41
|
|
40
42
|
Next
|