Excel VBA 質問スレッド No.830 (未解決)

分割データをcsv保存(出来たファイルを開こうとするとエラー表示が出ます)

投稿者 : あべ     投稿日時 : 2022/06/24(Fri) 13:25:35     OS : Windows 10     EXCEL : Excel 2016
はじめまして。初心者のあべと申します。
行ごとに分かれているエクセルデータを、8列目の文字をファイル名として別名保存するものなのですが、出来たファイルを開こうとすると「ファイル形式と拡張子が一致しません」のエラーが出てしまいます。

ファイル分割のマクロに「 FileFormat = xlCSV 」を追加しただけなので、どこかがおかしいのだと思いますが分からずで。。
ご教示頂きたく思います。

Sub データ分割()

Application.ScreenUpdating = False

ChDir ThisWorkbook.Path

基準列 = 8
開始行 = 2
最終行 = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Row

For i = 最終行 To 開始行 Step -1

ファイル名 = Cells(i, 基準列).Value & ".csv"

If Dir(ファイル名) = "" Then

FileFormat = xlCSV
ActiveSheet.Copy
ターゲット = Cells(i, 基準列).Value

For d = 最終行 To 開始行 Step -1

If Cells(d, 基準列).Value <> ターゲット Then Rows(d).Delete

Next d

ActiveWorkbook.SaveAs ファイル名
ActiveWorkbook.Close

End If

Next i

Application.ScreenUpdating = True

End Sub

[返信 1] Re : 分割データをcsv保存(出来たファイルを開こうとするとエラー表示が出ます)
投稿者 : さんこう     投稿日時 : 2022/06/24(Fri) 13:35:42
「 FileFormat = xlCSV 」を追加しただけなので、
普通のExcelファイルとして保存されています。

参考になれば。
https://www.google.com/search?q=VBA+SaveAs+CVS

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 12:55:45 )

Page
Top