マスタのCD分、Excel出力 '//// Excel出力 Public Sub ExcelOut(ByVal pMysql As String, ByVal pFilePath As String) On Error GoTo ErrHnd Dim qryName As String qryName = "Q_Dummy" 'クエリ名の指定 'エクセル出力用クエリ"qryName"の存在を確認。無い…