質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.03%

【Access VBA】あるAccessでVBAを起動させると、別のAccess自体をコピペなどの操作ができるようにしたい

解決済

回答 2

投稿

  • 評価
  • クリップ 1
  • VIEW 1,789
退会済みユーザー

退会済みユーザー

業務の一環として毎日、決まった時間に処理が走るような仕組みをAccessで作っています。
今回やりたい事としてはタイトル通り、AAAというAccessでVBAを起動させると
別フォルダに格納されているBBBというAccess自体をコピーし、
同フォルダ内にあるCCCというAccess自体にペーストして上書きするという処理を構築したいと
思っています。

正確に言えば、既にその処理自体はあるのですが、そのAccessはAccess 2010(32bit)と古い為
Access2016(64bit)として作り直しています。
※以前まではofficeソフトが32bitだったのが現在、64bitのOfficeソフトにリプレースされています。

上記を踏まえた上で下記コードを実行すると、Accessが停止してしまい、閉じてしまいます。

以下は標準モジュールとして作成

Option Compare Database

Public Type SHFILEOPSTRUCT
  hwnd As Long
  wFunc As Long
  pFrom As String
  pTo As String
  fFlags As Integer
  fAnyOperationsAborted As Long
  hNameMappings As Long
  lpszProgressTitle As String
End Type

Public Declare PtrSafe Function SHFileOperation Lib "SHELL32.DLL" Alias _
                      "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_COPY = &H2
Public Const FO_MOVE = &H1
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_RENAMEONCOLLISION = &H8


以下はMicrosoft Access クラス オブジェクトとして作成

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

DoCmd.SetWarnings False

'BBBというAccess自体をCCCというAccessにコピペ
Dim stShellOp As SHFILEOPSTRUCT
 With stShellOp
  .hwnd = Application.hWndAccessApp  'Accessのハンドルをセット
  .wFunc = FO_COPY                   'コピーモードを指定'移動時は FO_MOVE
  .pFrom = "C:\夜間バッチ処理\BBB.accdb"   'コピー元ファイルのフルパスをセット
  .pTo = "C:\夜間バッチ処理\CCC.accdb"                 'コピー先ファイルのフルパスをセット
  .fFlags = FOF_NOCONFIRMATION       '強制的に上書きコピーします
 End With
 If SHFileOperation(stShellOp) = 0 Then
End If

End Sub


結果
上記VBAを実行すると下記画像が表示され、Accessが閉じてしまいます。
イメージ説明

移行前の環境(Access2010 32bit)で実行すると問題はないのですが・・・・。

こちらは前担当者が構築したもので、今はその担当者がいない為
どうしたら良いか分からない状態です。
出来る限り同じ仕組みのまま新しい環境に移行したいと思っていますので
解決方法をご教示頂けますと幸いです。

何卒、よろしくお願いいたします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+1

手元に残っているメモ書きをコピペしただけですけど..
詳しいところを突っ込まれてもわかりません
まぁ参考になれば...

#If VBA7 Then

  Type SHFILEOPSTRUCT
    hWnd As LongPtr
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Longptr
    sProgress As String
  End Type

  Declare PtrSafe Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPtr

#Else

  Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
  End Type

  Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

#End If

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/08/15 10:46

    ご回答ありがとうございます!

    上記スクリプトに書いてある通り、LongをPtrLongに変えましたら解決できました。
    ありがとうございました!

    キャンセル

+1

64bit と32bit ではlong型のデータサイズが異なるため、それに応じた対応が必要です。
こちら(VBA 32Bit版と64Bit版でDeclareステートメントの宣言を分ける方法 – Office 2010,2013)や、こちら(64 ビット Visual Basic for Applications の概要)が参考になるでしょう。

修正する内容は、dojikkoさんが提示されていますので。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/08/15 10:45

    ご回答ありがとうございます!

    標準モジュールの方で宣言されている変数の型をLongからLongPtrに
    変えてみましたら、正常に動きました!

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.03%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる
  • トップ
  • VBAに関する質問
  • 【Access VBA】あるAccessでVBAを起動させると、別のAccess自体をコピペなどの操作ができるようにしたい