Microsoft Access 掲示板

Microsoft Access 掲示板

Accessのテーブルを任意のフォルダにエクセルで出力したい / 1

9 コメント
views
4 フォロー
1
hatena 2022/06/08 (水) 12:37:48

設定ダイアログで、ファイル形式で、拡張子が .xls のものを選択してませんか。
Excel Workbook(.xlsx) に変更して試してみてください。

通報 ...
  • 2
    もちっこ 2022/06/09 (木) 09:57:58 b2348@20787 >> 1

    Ｅｘｃｅｌ出力のVBAを以下のように書きました

    Private Sub Excel出力_Click()

    '変数宣言

    Dim strPath As String

    'Excelエクスポート先のファイルパス
    strPath = "C:\Users\" & UserName & "○○○リスト" & Format(Now(), "yyyymmdd")

    'Excelファイルの出力
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "○○○リスト出力", strPath, False

    'Excelファイルをエクスポートした旨を通知する。
    MsgBox "○○○リストを出力しました。" & vbCrLf & "C:\Users\" & UserName & "\OUT\", vbInformation

    End Sub

    を実行すると
    実行時エラー’3051’
    ファイル’C￥Users¥○○○リスト2022****’を開くか、書き込むことができませんでした。ほかのユーザーが排他的に開いているか、データーの表示と書き込みを行う権限がありません。

    とメッセージがでてしまいます
    どうしｔら解消できるでしょうか

    よろしくお願いします