こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

大変申し訳ございませんが、この投稿に添付された画像や動画などは、「BIGLOBEなんでも相談室」ではご覧いただくことができません。 OKWAVEよりご覧ください。

マルチメディア機能とは?

投稿日時 - 2020-09-14 21:02:11

QNo.9799412

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

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

投稿日時 - 2020-09-14 21:32:26

お礼

kkkkkmさん

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

投稿日時 - 2020-09-15 11:57:03

あなたにオススメの質問