CSV形式で出力後、開くときの警告メッセージについ

質問

いつもお世話になっております。
ACCESSからデータをCSV形式で出力後、ファイルを開くときに添付のような警告メッセージが表示されます。[はい]をクリックすればファイルは開くことができるのですが、警告メッセージが表示されないようにするにはどうしたらいいでしょうか？

xlsxのテンプレートを開き、そこにデータを書き出して、csvで保存するようになっています。csv形式で出力したことがないので、csvのFormatを指定する必要があると思っていますが、どうしたらいいでしょうか？
ご教授お願いいたします。

Private Sub CMD_Expo_DblClick(Cancel As Integer)

On Error GoTo Err_FileDialog_Click
Dim strsql 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

'ファイル名作成
ExpFileName = "SNDFILE" & Format(Date, "yyyymmdd")
strFileName = GetFileName(False, "", "", ExpFileName & ".csv")

'EXCELアプリケーションを起動
Set xlapp = CreateObject("Excel.Application")

'セットする過程が見えないよう一旦不可視
xlapp.Visible = False

Set myCn = CurrentProject.Connection

strsql = "Q_BOFAXExpo_MJ"

'レコードセットオープン
myRs.Open strsql, myCn, adOpenForwardOnly, adLockReadOnly

With xlapp
'テンプレートを開く
strTemplate = Application.CurrentProject.Path & "\" & "SNDFILE.xlsx"
Set xlWB = .Workbooks.Open(strTemplate)

'テンプレートファイルが存在しないときはエラー
If Dir(strTemplate) = "" Then
MsgBox "テンプレートファイルを確認してください。", vbOKOnly + vbCritical, "エラー"
.Visible = True
.Quit
Exit Sub
End If

'テンプレートファイルオープン
.Workbooks.Open strTemplate

'結果値出力処理(1行目にヘッダーを表示しているので、2行目1列目からセット
xlWB.Worksheets("Sheet1").Cells(1, 1).CopyFromRecordset myRs

'完了したら保存
If Len(strFileName) = 0 Then
xlWB.Close SaveChanges:=False
xlapp.Quit
MsgBox "処理を中止します。", vbOKOnly + vbInformation
Exit Sub
Else
xlWB.SaveAs FileName:=strFileName

End If

MsgBox "BOFAX用のファイルの出力が完了しました。", 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

Resume Exit_FileDialog_Click
End Sub

回答No.1

kkkkkm

https://ameblo.jp/ak09z/entry-11947718094.html

こちらのサイトを参考にしてCSV形式で保存してみてください。

お礼

kkkkkmさん

csvで出力できることができました。
ありがとうございました。