VBAアクセスPS1ファイルへの書き込み

Question

ユーザーがボタンをクリックしたときにPowershellスクリプトを生成して実行するデータベースのフロントエンドとして、Access 2016を使用しようとしています。

は、私は現在、これを使用しています：

Dim Script As String 
Script = ("test" & vbCrLf & "2nd line?") 
Set f = fileSysObject.OpenTextFile("C:\Users\%Username%\Documents\Access.ps1", True, True) 
f.Write Script 
f.Close 

その後、私は使用していたスクリプトを実行する：

Dim run 
run = Shell("powershell ""C:\Users\%Username%\Documents\Powershell\Access.ps1""", 1) 

私はこれはおそらくこれを行うのは本当に悪い方法であることを実感します！だから、どんな助けも大歓迎です！

ありがとうございます！

EDIT： ご質問はありません。

問題は、それが「f.writeスクリプト」

コンパイルエラーでエラーを強調していることである：メソッドまたはデータメンバが見つかりません。

Answer 1

%VAR%はVBAで動作しない形式で、ユーザー名は、そのメソッドで値を返さないと述べEnviron("VAR")

する必要がありますが、この場合にはVBA.Environ("Username")を使用することができます。

Dim strScript, strUserName, strFile As String 
Dim objFSO, objFile as Object 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

strScript = ("test" & vbCrLf & "2nd line?") 
strUserName = VBA.Environ("Username") 
strFile = "C:\Users\" & strUserName & "\Documents\Access.ps1" 

Set objFile = objFSO.CreateTextFile(strFile) 
objFile.WriteLine strScript 
objFile.Close 

Set objFSO = Nothing 
Set objFile = Nothing