vbscriptからaccessの標準モジュールを実行したい

Question

vbscriptからaccess2016の標準モジュールを実行したい

発生している問題・エラーメッセージ

関数の呼び出しが正しくありません。
ｺｰﾄﾞ　800A1F10

該当のソースコード

Sub Main()
Set objAccess = CreateObject("Access.Application")
objAccess.Visible = True

' DB接続文字列
strFilePath = GetCurrentDirectory() & "\DATAUPDATE.accdb"
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strFilePath & ";"

' 接続
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open strConnection

objAccess.run "TabSet" ＜＝＝＝＝＝＝＝ここでエラー
' 切断
objConnection.Close

objAccess.Quit
Set objConnection = Nothing
Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
Dim objShell : Set objShell = CreateObject("WScript.Shell")
GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

試したこと

補足情報（FW/ツールのバージョンなど）

Access2016 64bit

Comments

[YT0014]

コードは、マークダウン形式でご提示ください。
呼出されるTabSetのコードも、最小限で構わないので、ご提示ください。

[MOMOTA373]

Public Sub TabSet() ← Public　に修正しました
'On Error GoTo ErrorTrap
Dim Strpath As String
Dim StrmyFileName As String
Strpath = "C:\Users\nu\Documents\タブ区切7に変更\in"

Set myFileSystem = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFileSystem.GetFolder(Strpath)
DoCmd.SetWarnings False

For Each myFile In myFolder.Files
If InStr(myFile.Name, "aaa_") > 0 Then
DoCmd.RunSQL "DELETE * FROM T_In"
DoCmd.TransferText acImportDelim, "In定義", "T_In", myFile
StrmyFileName = myFile.Name
DoCmd.TransferText acExportDelim, "Out定義", "T_In", Strpath & "\" & StrmyFileName
End If
Next

' MsgBox "end"
End_Proc:
DoCmd.SetWarnings True
Set myFileSystem = Nothing
Set myFolder = Nothing
End
ErrorTrap:
'エラーNOとエラーの詳細を表示
MsgBox Err.Number & ":" & Err.Description, vbOKOnly + vbCritical, " TabSet"
Resume End_Proc
End Sub

[YT0014]

質問は修正できます。
上記コードは、質問を編集して、質問欄に追記してください。

Answer 1

Access本体に、データベースが指定していないのが原因かと思います。

	' DB接続文字列
	strFilePath = GetCurrentDirectory() & "\DATAUPDATE.accdb"
	' Accessにデータベースを開かせる
	objAccess.OpenCurrentDatabase strFilePath

なお、ADOでの接続は不要だと思われます。

Access 2007 VBA を VBS から実行する

Comments

[hatena19]

まずは、これですね。

[MOMOTA373]

ありがとうございます。5行目に指定しているのですが。。

[YT0014]

objConnectionはopenしていますが、これは、objAccessとは無関係に、DBソースとして接続しているだけです。その為、objAccessは、DBなしの状態を維持していると思われます。

[MOMOTA373]

strFilePath = GetCurrentDirectory() & "\DATAUPDATE.accdb"
objAccess.OpenCurrentDatabase strFilePath
上記に変更して上手くいきました。ありがとうございました！（質問の編集方法がわからずすみません。）

Answer 2

下記の点を確認してください。

• TabSetプロシージャは、標準モジュールに記述しているか。
• TabSetプロシージャは、Publicで宣言しているか。

Comments

[MOMOTA373]

ありがとうございます。標準モジュールです。Public になってなかったので、修正しましたが結果は同じでした。