こんにちは。
VB初心者です。
実はVBではなく、Excel VBAで行なっているのですが。
ここに質問していいかもよく分かってないのですが。
プログラムの処理としては、あるBookのシートの内容を
別のCSVファイルとして生成したいのです。マクロを組んだのですが、一つ問題があって困っています。
問題:
生成したCSVファイルが一度Window上に表示されて
(それはいいのですが、あとで閉じますから)
以下の確認メッセージがでてしまいます。
「outFile.csvはExcel97のファイル形式では、ありません。変更を保存しますか?」
要はプログラムがここで、一旦ユーザアクションを要求してしまうのです。
アクションなしに普通に終了させたいのですが。
マクロではなくVBだったらこんなことはならないのでしょうか?
初心なのでよく分かりません。
もしくはもっとほかの簡単なコードできるのでしょうか。
以下にコードを記述します。
Sub OutFile()
Dim myWBpath As String
myWBpath = ActiveWorkbook.Path
Workbooks.Open FileName:=myWBpath & "\testData1.xls"
Sheets("sheet1").Select
ActiveWorkbook.SaveAs FileName:="C:\outFile.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
End Sub
No.1
- 回答日時:
Saved を使用すると回避できます。
。。Sub OutFile()
Dim myWBpath As String
Dim xlBook As Excel.Workbook
Const outCsvFile As String = "C:\outFile.csv"
'CSVファイルの削除
On Error Resume Next
Kill outCsvFile
On Error GoTo 0
'画面描画停止
Application.ScreenUpdating = False
'ブックパス取得
myWBpath = ActiveWorkbook.Path
'ブックオープン
Workbooks.Open Filename:=myWBpath & "\testData1.xls"
Set xlBook = ActiveWorkbook
With xlBook
'シート1を出力
.Sheets(1).Select
.SaveAs Filename:=outCsvFile, FileFormat:=xlCSV, CreateBackup:=False
'擬似的に保存したようにする
.Saved = True
.Close
End With
'画面描画再開
Application.ScreenUpdating = True
MsgBox "終了"
End Sub
No.2ベストアンサー
- 回答日時:
Application.DisplayAlertsをFalseにすることでSaveAsでの警告の表示を停止することができます。
Closeでの変更保存のメッセージは、SaveChangesをFalseにすればOKです。
この修正を含めてちょっと手を入れてみました。
Sub OutFile()
Dim myWBpath As String
Dim objBook As Workbook
Err.Clear
On Error GoTo OutFile_Err
'画面の更新を停止してい処理を高速化
Application.ScreenUpdating = False
'パス名の取得
myWBpath = ActiveWorkbook.Path
If Right(myWBpath, 1) <> "\" Then
myWBpath = myWBpath & "\"
End If
'ワークブックをオープン
Set objBook = Workbooks.Open(Filename:=myWBpath & "testData1.xls")
'警告の表示を停止
Application.DisplayAlerts = False
'開いたワークブックのSheet1をCSVで保存
objBook.Worksheets("sheet1").SaveAs Filename:="C:\outFile.csv", _
FileFormat:=xlCSV, CreateBackup:=False
'開いたワークブックを閉じる
objBook.Close SaveChanges:=False
'変数の開放
Set objBook = Nothing
OutFile_Err:
'エラー発生時の処理
If Err.Number <> 0 Then
MsgBox Err.Description, vbExclamation, "エラーの報告"
End If
'警告の表示の再開
Application.DisplayAlerts = True
'画面更新の再開
Application.ScreenUpdating = True
Exit Sub
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
エアコンの冷媒 R410Aの重...
-
iosのshortcutアプリでmp3を連...
-
エクセルで「特定の文字を含む...
-
Fortniteのクラッシュについて
-
VBS フォルダ内にあるすべての...
-
複数のブックを新しいブックのS...
-
Accessのソースが見れない
-
VBA:カウンターの i の値が開放...
-
typedefのスコープに関して。
-
garagebandのLR Mixの方法について
-
A4の紙に印刷されている文字を...
-
ガラケーからPCへの写真の取り込み
-
再起動しないでiniファイルの変...
-
e-taxで送信ファイルの拡張子が...
-
ビデオファイルのプロパティの...
-
パソコン名、IPアドレスをH...
-
2枚、マイクロSDカードを入...
-
ホームページビルダーのプレビ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
e-taxで送信ファイルの拡張子が...
-
個別に違う添付ファイルを付け...
-
スマホでtxtファイルを編集する...
-
エクセルで「特定の文字を含む...
-
A4の紙に印刷されている文字を...
-
Fortniteのクラッシュについて
-
ビデオファイルのプロパティの...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
ガラケーからPCへの写真の取り込み
-
情けない話ですが成田エクスプ...
-
PC内で速度を遅くした音源をCD...
-
TextBoxにフォーカスを与えると...
-
2枚、マイクロSDカードを入...
-
エアコンの冷媒 R410Aの重...
-
リストビューの選択状態を取得...
-
RSSフィードと無断転載について
-
拡張子「.IDJ」を、windo...
-
VBA:カウンターの i の値が開放...
-
ファイル数と合計サイズの取得方法
-
複数のブックを新しいブックのS...
おすすめ情報