hatena
hatena
2024/01/20 (土) 09:32:13
ちなみに、C:¥Users¥中略の部分を変数にするコードは下記のようになります。
ただし、質問のコードでエラーがでるならこのコードでもエラーはでます。
やっていることは同じことなので。
Private Sub btn_注文データ取り込み_Click()
Dim folderName As String
Dim oldname as String
Dim newname as String
folderName = "C:¥Users¥中略"
DoCmd.TransferText acImportDelim, "my_imp", "注文取込", folderName & "¥注文.csv", False, ""
DoCmd.OpenQuery "Q_注文取込→注文データ"
DoCmd.OpenQuery "Q_注文取込削除"
Kill folderName & "¥前回注文.csv"
oldname = folderName & "¥注文.csv"
newname = folderName & "¥前回注文.csv"
Name oldname As newname
MsgBox "取り込みが完了しました。", vbInformation + vbOKOnly, "取込完了"
End Sub
通報 ...