Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
ファイル名に「.」が付いているときに拡張子を付けたい
投稿日時: 19/05/13 17:04:00
投稿者: hira_506

xlCSVsaveを使ってエクセルファイルからCSV変換して保存をするときに、
ファイル名に「.」を付けなければならない時があるのですが、
そうすると保存したファイルがに拡張子が付きません。
「.」を無くす以外になにか対処方法はありますでしょうか?

回答
投稿日時: 19/05/13 20:18:37
投稿者: WinArrow
投稿者のウェブサイトに移動

>xlCSVsave
って、何?
 
FileFormatの列挙ならば「xlCSV」だけど・・・
 
どのようなファイル名にしたいのでしょうか?[/i]

回答
投稿日時: 19/05/14 07:31:13
投稿者: simple

>そうすると保存したファイルがに拡張子が付きません。
私のところでは再現しないのですが、
そのコードを示してもらえますか?
ちなみに、「拡張子を表示しない」の設定はしていないですね?

投稿日時: 19/05/14 11:03:28
投稿者: hira_506

ありがとうございます。
 
ファイル名の「.」は工事名なので本当は省きたいのですができません。
「.」が付かないものはうまくいっています。
 
 
Sub xlCSVsave()
    Dim ファイル名 As String
    ファイル名 = Range("ab1")
    ActiveWorkbook.SaveAs Filename:="\\Server\AAA\BBB\" & ファイル名, FileFormat:=xlCSV
End Sub
 
SeverのフォルダAAAの中のBBBにセルab1の名前を付けてcsvで保存
 
ファイル名のところを「.」も含めて名前なのだと認識できればいいと思うのですが…

回答
投稿日時: 19/05/14 11:30:29
投稿者: WinArrow
投稿者のウェブサイトに移動

実際のファイル名は、どのようになるのですか?
 
「.」の入るファイル名と
「.」がないファイル名
の両方を掲載できませんか?

投稿日時: 19/05/14 11:41:15
投稿者: hira_506

例えば
 
東京江東区 M6.5(310428-01) 「.」あり
東京足立区 H400(310425-02) 「.」なし
 
のようなファイル名です。
 
東京江東区 M6.5(310428-01)の「.」があるとうまくいかないので
後で「.csv」を付けています。
 
一度で
東京江東区 M6.5(310428-01).csv
東京足立区 H400(310425-02).csv
 
としたいです。

回答
投稿日時: 19/05/14 11:56:15
投稿者: bi

横から失礼します。
ActiveWorkbook.SaveAs Filename:="\\Server\AAA\BBB\" & ファイル名 & ".csv", FileFormat:=xlCSV
だとどうですか?

投稿日時: 19/05/14 12:50:32
投稿者: hira_506

確かにそうでした。
 
先に「.csv」を付けちゃえばいいんですね。
 
できました。
 
皆さんありがとうございました。