Ｐａｇｅ 557 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルにファイル名の一部を切り出す方法 たらちゃん 03/1/16(木) 16:40 ┣Re:セルにファイル名の一部を切り出す方法 Jaka 03/1/16(木) 16:57 ┃ ┗ごめんなさい。又リンク左記間違えました。 Jaka 03/1/16(木) 17:01 ┃ ┗Re:ごめんなさい。又リンク左記間違えました。 たらちゃん 03/1/16(木) 17:52 ┃ ┗Re:ごめんなさい。又リンク左記間違えました。 ハマゾウ 03/1/16(木) 23:02 ┗Re:セルにファイル名の一部を切り出す方法 ハマゾウ 03/1/16(木) 17:07 ┗Re:セルにファイル名の一部を切り出す方法 たらちゃん 03/1/16(木) 17:57 ─────────────────────────────────────── ■題名 ： セルにファイル名の一部を切り出す方法 ■名前 ： たらちゃん ■日付 ： 03/1/16(木) 16:40 -------------------------------------------------------------------------
| エクセルのファイルを連番で001Hoge.xls,002Hoge.xls... と保存しているのですが、それぞれのファイルで通し番号 を入力する目的で、例えばファイル名の頭3文字を切り出し てセルに入力するといったマクロはどのようになるのか おしえていただけますでしょうか？ |
| こんにちは。 ここに、某フォルダにあるエクセルファイル名を、読み出すコードが書いてありますから、呼び出したファイル名の頭３文字取出して、数字かどうか確かめてから書きたいところに書けば良いと思います。 [#834] |
| こっちです。 [#843] |
| 迅速な回答ありがとうございます。 私の質問は実はもっと簡単でして、自分のファイル名の頭3文字を 特定のセルに書き出す方法なのですが、どうすればいいでしょうか？ ハマゾウさんの回答をちょっと直すだけだと思うのですが。 よろしくお願いします。 |
| ▼たらちゃん さん： もしかして、以下のコードでよろしいのでしょうか？ Sub test2() Cells(1, 1) = Left(ThisWorkbook.Name, 3) End Sub |
| ▼たらちゃん さん： >エクセルのファイルを連番で001Hoge.xls,002Hoge.xls... >と保存しているのですが、それぞれのファイルで通し番号 >を入力する目的で、例えばファイル名の頭3文字を切り出し >てセルに入力するといったマクロはどのようになるのか >おしえていただけますでしょうか？ MyPathにエクセルファイルを保存しているフォルダを指定してください。 Ａ列に頭３文字が出力されます。 Sub Test() Dim MyPath As String Dim Myname As String Dim y As Integer MyPath = "C:\*.xls" Myname = Dir(MyPath, vbNormal) y = 0 Do While Myname <> "" y = y + 1 Cells(y, 1) = Left(Myname, 3) Myname = Dir Loop End Sub |
| ハマゾウさん回答ありがとうございました。 |