| |
以下のVBA処理によりエクスポートボタンを押すことで、
マイドキュメントに「一覧.xls」が自動的に保存されるように設定しました。
しかし、この状態だと「Microsoft Excel 5.0/95形式」になってしまいます。
「Microsoft Excel 97-2000形式」で自動的に保存されるようにしたいのですが、
どのようにすれば良いのでしょうか？
ご教授の程、よろしくおねがいします。
-------------------------------------
Private Sub エクスポートボタン_Click()
yesno = MsgBox("MyDocument内に [一覧.xls] というファイル名でエクスポートします。", vbYesNo + vbInformation)
If yesno = vbYes Then
If Dir("一覧.xls") = "一覧.xls" Then
yesno = MsgBox("既に同じ名前のファイルが存在しています。上書きしてもよろしいですか？", vbYesNo + vbExclamation)
If yesno = vbYes Then
DoCmd.OutputTo acOutputForm, "F_一覧クエリ", acFormatXLS, "一覧.xls", False
End If
Else
DoCmd.OutputTo acOutputForm, "F_一覧クエリ", acFormatXLS, "一覧.xls", False
End If
End If
End Sub
-------------------------------------
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
