Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Access 2013)
保存済みのインポート操作の変更
投稿日時: 17/04/05 21:57:25
投稿者: hato

お世話になります。
 
Excelをインポートする、「保存済みのインポート」に登録された内容を
変更するにはどうしたらいいでしょうか?
XMLプロパティをVBAで設定内容を確認することはできたのですが、変更ができません。
インポートするファイルの保存場所が年月ごとにわかれているので、
毎月フォルダ名の部分を変えたいのですが、パスの部分だけ取り出して
上書きする方法がわかりません。
何かヒントをいただけないでしょうか?
 
●確認した方法
 Public Sub ImpExptest()
On Error GoTo エラー処理
 
    Dim Prj As CodeProject
    Dim Obj As ImportExportSpecification
    Dim ImpName As String, strXML As String
 
    'パス名を確認するインポート操作の名前を指定
    ImpName = "インポート-@1P9P"
 
    'XMLプロパティの値をイミディエイト ウィンドウに表示
    Set Prj = CurrentProject
    Set Obj = Prj.ImportExportSpecifications(ImpName)
    strXML = Obj.XML
    Debug.Print strXML
   
終了処理:
    '念のためにメモリを明示的に開放
    Set Obj = Nothing
    Set Prj = Nothing
    Exit Sub
エラー処理:
    MsgBox Err & ":" & Error$, , "ImpExpTest"
    Resume 終了処理
End Sub
 
どうぞよろしくお願いします。

投稿日時: 17/04/06 09:20:08
投稿者: hato

すみません。今回はインポートの数が20くらいだったので
もう一度登録し直しました。
お騒がせしてすいませんでした。