excelVBAについて。

パスからファイル名を抜き出す所で、ファイル名の拡張子を抜き出した後、別の形式で保存する用途で利用できます。とはどういう事でしょうか?教えて頂けると幸いです。

質問者からの補足コメント

• すみません。以下のURLを見て頂けないでしょうか?
  https://detail.chiebukuro.yahoo.co.jp/qa/questio …
  です。教えて頂けると幸いです。

  No.2の回答に寄せられた補足コメントです。 補足日時：2024/11/15 12:36

No.4 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/11/15 16:09

>ファイル名が「data.xlsx」なら、

>「data001.csv」
>「data002.csv」
>「data003.csv」
>   ・
>   ・
>   ・
>「data100.csv」
>という風にする訳です。
>これを手動でやると、時間が掛かるし面白みも無いし、面倒でしかないですね。
>そういう処理は VBA で処理しちゃいましょう、となる訳です。

>そんな時に使えるのが、貴方が添付した画像に書かれている様な内容です。>ちなみに、このコードについても書いて頂けると幸いです。


コードの作成は可能ですが、まず、１０万行ある「data.xlsx」
を作成する必要があります。
添付図のようなデータをSheet1に作成してください。
もし、１０万行が大変な場合は1000行でも構いません。
添付図は、1000行のデータです。
データの作成が完了したらdata.xlsxの名前で保存してください。
保存先は、自分のPC内のフォルダであればどこでも構いません。
（OneDriveはネットワークフォルダなので指定しないでください）
それが、終わりましたらその旨補足してください。
その際は、作成したデータ件数も明記してください。

No.3 回答者： tatsumaru77 回答日時： 2024/11/15 13:45

>パスからファイル名を抜き出す所で、ファイル名の拡張子を抜き出した後、別の形式で保存する用途で利用できます。

これは、以下のようなことを言っています。
１．まず前提として、InStrRev関数についての説明であることです。
従って、InStrRev関数について、あなたがある程度調査して、知識を持っていることが前提です。
２．InStrRev関数を利用すると
c:\data\sample.xlsx のようなファイルがあったとき、
このファイルの拡張子だけを変えて
c:\data\sample.csv のファイル名を作ることができます。

以下のマクロを実行すると、
A２のファイル名の拡張子をcsvに変えたファイル名をB2に格納します。
画像の例ではB2には、d:\goo\data\sample.csv が格納されます。

Public Sub 名前変更()
Dim fname As String
Dim newname As String
Dim pos As Long
fname = Range("A2").Value
pos = InStrRev(fname, ".")
newname = Left(fname, pos) & "csv"
Range("B2").Value = newname
End Sub

No.2 回答者： tatsumaru77 回答日時： 2024/11/15 11:19

>パスからファイル名を抜き出す所で、ファイル名の拡張子を抜き出した後、別の形式で保存する用途で利用できます。

この文章の前に、利用できる前提となる文章があると思われます。
その文章を提示していただけませんでしょうか。
そうすると、良い回答が得られやすくなるかと。

この回答へのお礼

連番については、例えば 10万行ある何かの記録データを、他のシステムで読み込ませる為に、データを小分けしなければならないという場合。

1000行ずつデータを分割し、それぞれ別ファイルで CSV 形式で保存しなければならない時に、同じ名前に連番を付けて保存という指示があったとして。

ファイル名が「data.xlsx」なら、
「data001.csv」
「data002.csv」
「data003.csv」
   ・
   ・
   ・
「data100.csv」
という風にする訳です。
これを手動でやると、時間が掛かるし面白みも無いし、面倒でしかないですね。
そういう処理は VBA で処理しちゃいましょう、となる訳です。

そんな時に使えるのが、貴方が添付した画像に書かれている様な内容です。ちなみに、このコードについても書いて頂けると幸いです。

お礼日時：2024/11/15 12:39

No.1 回答者： かわごえ 回答日時： 2024/11/14 22:13

CSVとかで保存するときに、ファイル名を使いまわせるって事かと。