chayamatiのプロフィール

Accessの複数のテーブルを1つの既存のエクセルに出力したのですが、どのようにしたらいいのでしょうか？ 試しにDO～LOOPのしたにDO～LOOPをもう1つ追加してみたところ、 エラーナンバー７５ オブジェクトが開いている場合は、操作は許可されません。 と表示されます。 Private Sub コマンド144_Click() On Error GoTo Err_FileDialog_Click Dim strsql1 As String Dim strsql2 As String Dim strsql3 As String Dim strsql4 As String Dim strTemplate As String Dim strFileName As String Dim ExpFileName As String Dim xlapp As Object Dim xlWB As Object Dim myCn As New ADODB.Connection Dim myRs As New ADODB.Recordset 'ExportData削除 DoCmd.SetWarnings False DoCmd.RunSQL "DELETE from T_EDI_01_CVJ" DoCmd.RunSQL "DELETE from T_EDI_02_OU" DoCmd.RunSQL "DELETE from T_EDI_03_EDI_CUSTOMER" DoCmd.RunSQL "DELETE from T_EDI_04_CUSTOMER" DoCmd.SetWarnings True 'Export用クエリ実行 DoCmd.SetWarnings False DoCmd.OpenQuery ("D_EDI_01_CVJ2") DoCmd.OpenQuery ("D_EDI_02_OU2") DoCmd.OpenQuery ("D_EDI_03_EDI_CUSTOMER2") DoCmd.OpenQuery ("D_EDI_04_CUSTOMER2") DoCmd.SetWarnings True 'ﾌｧｲﾙ名作成 ExpFileName = "FY24_03_CVJ_EDI" & "_" & Format(Date, "yyyymmdd") strFileName = GetFileName(False, "MicrosoftExcel ブック (*.xlsx)|*.xlsx", "", ExpFileName & ".xlsx") 'EXCELｱﾌﾟﾘｹｰｼｮﾝを起動 Set xlapp = CreateObject("Excel.Application") Set myCn = CurrentProject.Connection strsql1 = "T_EDI_01_CVJ" strsql2 = "T_EDI_02_OU" strsql3 = "T_EDI_03_EDI_CUSTOMER" strsql4 = "T_EDI_04_CUSTOMER" 'ﾚｺｰﾄﾞｾｯﾄｵｰﾌﾟﾝ myRs.Open strsql1, myCn, adOpenForwardOnly, adLockReadOnly ' myRs.Open strsql2, myCn, adOpenForwardOnly, adLockReadOnly ' myRs.Open strsql3, myCn, adOpenForwardOnly, adLockReadOnly ' myRs.Open strsql4, myCn, adOpenForwardOnly, adLockReadOnly With xlapp 'ﾃﾝﾌﾟﾚｰﾄを開く strTemplate = Application.CurrentProject.Path & "\" & "FY24_03_xxx_CVJ_EDI.xlsx" Set xlWB = .Workbooks.Open(strTemplate) 'ﾃﾝﾌﾟﾚｰﾄﾌｧｲﾙが存在しないときはｴﾗｰ If Dir(strTemplate) = "" Then MsgBox "テンプレートファイルを確認してください。", vbOKOnly + vbCritical, "エラー" .Visible = True .Quit Exit Sub End If 'ﾃﾝﾌﾟﾚｰﾄﾌｧｲﾙｵｰﾌﾟﾝ .Workbooks.Open strTemplate 'T_EDI_01_CVJの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ xlWB.Worksheets("CVJ").Rows(2).Insert xlWB.Worksheets("CVJ").Cells(2, 1).CopyFromRecordset myRs ' 'T_EDI_02_OUの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ ' xlWB.Worksheets("CVJ OU別").Cells(2, 1).CopyFromRecordset myRs ' 'T_EDI_03_EDI_CUSTOMERの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ ' xlWB.Worksheets("代理店別EDIデータ").Cells(2, 1).CopyFromRecordset myRs ' ' 'T_EDI_04_CUSTOMERの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ ' xlWB.Worksheets("当月全代理店事業部別データ").Cells(2, 1).CopyFromRecordset myRs Dim I As Long I = 2 xlWB.Worksheets("CVJ").Activate Do While xlWB.Worksheets("CVJ").Cells(I, 1) <> "" I = I + 1 Loop '完了したら保存 If Len(strFileName) = 0 Then xlWB.Close SaveChanges:=False xlapp.Quit MsgBox "処理を中止します。", vbOKOnly + vbInformation Exit Sub Else xlWB.SaveAs FileName:=strFileName End If MsgBox "TX Shuttle用ファイルの出力が完了しました。", vbOKOnly + vbInformation End With Set myRs = Nothing: Close Set myCn = Nothing: Close 'Excelを終了します xlapp.Quit Exit Sub Exit_FileDialog_Click: Exit Sub Err_FileDialog_Click: MsgBox "予期せぬエラーが発生しました" & Chr(13) & _ "エラーナンバー：" & Err.Number & Chr(13) & _ "エラー内容：" & Err.Description, vbOKOnly End

令和５年９月１日が エクセル上で 「５０９０１」と表示されています。 これを２０２３／９／１にするにはどうしたらいいでしょうか。

令和５年９月１日が エクセル上で 「５０９０１」と表示されています。 これを２０２３／９／１にするにはどうしたらいいでしょうか。

Microsoft Access でマクロ（VBAではない）を制作しています。「検索画面」フォームに情報を入力して「検索実行」を押すと「全項目」フォームがフィルターされて表示するようにしたいです。 制作したマクロ① フォームを開く　フォーム　全項目　Where条件式　[投稿者]=[Forms]![検索画面]![投稿者] 制作したマクロ② ローカル変数の設定　変数名　[SQLCode] 値の代入　変数　[LocalVar]![SQLCode]　値　"[投稿者]=[Forms]![検索画面]![投稿者]" フォームを開く　フォーム　全項目　Where条件式　[LocalVar]![SQLCode] ローカル変数の削除　変数　[LocalVar]![SQLCode] このマクロを実行したところ、マクロ①は正しく実行されましたが、マクロ②はフィルターされずにフォームが表示されました。 どこを直せば良いのか教えてください。

Microsoft Access でマクロ（VBAではない）を制作しています。「検索画面」フォームに情報を入力して「検索実行」を押すと「全項目」フォームがフィルターされて表示するようにしたいです。 制作したマクロ① フォームを開く　フォーム　全項目　Where条件式　[投稿者]=[Forms]![検索画面]![投稿者] 制作したマクロ② ローカル変数の設定　変数名　[SQLCode] 値の代入　変数　[LocalVar]![SQLCode]　値　"[投稿者]=[Forms]![検索画面]![投稿者]" フォームを開く　フォーム　全項目　Where条件式　[LocalVar]![SQLCode] ローカル変数の削除　変数　[LocalVar]![SQLCode] このマクロを実行したところ、マクロ①は正しく実行されましたが、マクロ②はフィルターされずにフォームが表示されました。 どこを直せば良いのか教えてください。