Microsoft Access 掲示板

どのPCからでもエラーが出ないようにファイルまでのパスを取得したい / 2

13 コメント
views
4 フォロー
2

ちなみに、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
通報 ...