- ベストアンサー
ファイルの名前を変更したい
お世話になります。 エクセルVBAで作成しております。 「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の 拡張子に変更したいのですが、どのようにVBAを作成すればよいでしょうか? 何卒宜しくお願いします。
- kgyqk433
- お礼率27% (220/805)
- Visual Basic
- 回答数4
- ありがとう数5
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
>だめです。 >えらーでました。 Name "E:\フォルダ\" & strFileName As ""E:\フォルダ\*.xls" を Name "E:\フォルダ\" & strFileName As ""E:\フォルダ\" & Left(strFileName,Len(strFileName) - 3) & "xls" にしてみてください。 因みに「ファイルの拡張子名を変えるだけで、ファイルの中身などはそのままで構わない」のですよね? 「ファイルの中身も変換する」つまり「ファイルの形式も変換する」のであれば、これだけでは済みません。
その他の回答 (3)
- MSZ006
- ベストアンサー率38% (390/1011)
他の方の回答の補足となってしまいますが・・・ Dim strFileName As String strFileName = Dir("E:\フォルダ\*.txt", vbNormal) Do While strFileName <> "" Name "E:\フォルダ\" & strFileName As "E:\フォルダ\" & Left(strFileName,Len(strFileName)-4) & ".xls" strFileName = Dir() Loop
お礼
ありがとうございます!!!
- kmee
- ベストアンサー率55% (1857/3366)
「ファイル名を変更したい」なのか、「ファイル形式を変更して保存したい」なのか、「.txtを.xlsに置換した文字列が欲しい」なのか、はっきりさせてください。 それぞれでやり方が違います。 「VBAの一連のながれの1ステップ」だとすると、「ファイル形式変更」「置換した文字列」のような気はするのですが。 ファイル名変えただけでは、xls形式にはなりませんから。
補足
>「ファイル名を変更したい」なのか、「ファイル形式を変更して保存したい」なのか、 >「.txtを.xlsに置換した文字列が欲しい」なのか、はっきりさせてください。 「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の 拡張子に変更したいのですが。。。 >ファイル名変えただけでは、xls形式にはなりませんから。 txtの中に挿入する情報は、htmlの情報です。 xls形式にするだけで,大丈夫です。 ソース出してくださいね。
- chie65535
- ベストアンサー率43% (8525/19379)
>「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の拡張子に変更したいのですが コマンドプロンプトで「1行打ち込むだけ」で済むのですが、どうしてもVBAでやりたいのでしょうか? Dim strFileName As String strFileName = Dir("E:\フォルダ\*.txt", vbNormal) Do While strFileName <> "" Name "E:\フォルダ\" & strFileName As ""E:\フォルダ\*.xls" strFileName = Dir() Loop Nameの行で、変更後ファイル名に「*」が使えるかどうかをテストしてないので、上手く行くかどうかは判りません。 上手く行かない場合は、拡張子部分の「txt」の3文字を「xls」に置き換えた文字列を作って、それを変更後ファイル名に指定しましょう。
補足
>コマンドプロンプトで「1行打ち込むだけ」で済むのですが、どうしてもVBAでやりたいので >しょうか? VBAの一連のながれの1ステップとして実現したいので、 VBAでどうしてもやりたいのです。 >Nameの行で、変更後ファイル名に「*」が使えるかどうかをテストしてないので、上手く行く>かどうかは判りません。 だめです。 えらーでました。
関連するQ&A
- 同じ名前で拡張子が違うファイル
ExcelのVBAで、同じ名前で拡張子が違うファイルを操作するマクロを使用しています。(○○.txtと○○.xlsなど) フォルダオプションで「拡張子を表示しない」設定になっていた場合におこりうる不具合を教えてください。 私は以下のような不具合に遭遇しました。 ○○.txtを読み込み○○.xlsにコピペするマクロ ・まず○○.xlsを開く。 ・次に○○.txtを開き中身をコピー。 ・貼り付け先の○○.xlsをアクティブにしようとするが、 ○○.txtがアクティブになったまま。 そもそも同じ名前なのがいけないとは思いますが、ファイル名はそのままでエラーを回避できる方法があれば、それも知りたいです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- VBまたはVCからExcelファイルを生成したい
VBまたはVC(VBAは不可)を使ってExcelファイルを生成する方法を紹介しているwebページを探しています。 作成したいExcelファイルというのは、txtでもcsvでもなく、拡張子xlsのファイルです。 任意のセルへ対するデータ設定やシートの追加・名前変更などの操作を行いたいです。 どなたかご存知でしたら、ご教授お願いいたします。
- ベストアンサー
- Visual Basic
- VBAでファイル名を変更したい
EXCEL2003のVBAでブックを連続して保存をするものを作成したのですが、スキルが足りないため、ファイル名が数字になってしまい、リネームをしたいのですが、出だしからつまずいております。 リネームをしたいブック(ファイル)は一つのフォルダに入っており、 excelのシートには旧ファイル名と新ファイル名の一覧をつくり VBAを実行すると一覧に載っているブック名が変更される というものを作りたいのですが、可能でしょうか。 一覧は 旧ファイル名 新ファイル名 1.xls 1北海道.xls 2.xls 2青森.xls という感じです。 フリーのリネームソフトではなく何とか自力でやりたいと思っております。 お力をお貸しください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA ファイルをフォルダへ移動させる
エクセル VBA 手探り状態です。 001大企業.xls、001中小企業.xls、003大企業.xls、003中小企業.xls、008大企業.xls、008中小企業.xls・・・・というファイルが300ほど企業種類という名前のフォルダにあります。 VBAで企業種類という名前のフォルダの中に、001、003、008・・・というフォルダは作成しました。 (ネットで”フォルダ作成”を検索して、、、自力ではVBAは書けません) それを001という名前のフォルダへは、001大企業.xls、001中小企業.xlsのファイル、003という名前のフォルダへは003大企業.xls、003中小企業.xlsのファイルを、008フォルダへは008大企業.xls、008中小業.xlsファイルを・・・というように、マクロで移動させたいのです。 これらのファイル、フォルダは全て、企業種類というフォルダの中にあります。 VBAを教えていただけましたら嬉しいです。
- 締切済み
- その他MS Office製品
- ExcelVBAでフォルダ内のファイルを読み込む
お世話になります。 ExcelのVBAで、選択したフォルダ内全てのテキストファイル(.txt)を読み込んで、書き出しすることはできるでしょうか? 例えば、 01....05.txt→VBA→01_a...05_a.txt のような感じで、別ファイルで作りたいです。 動作環境はMacOsX、Excel2004forMacです。 Windowsでは動くVBAもMacでは動かなかったりするので、苦戦しています。 お願いします。
- 締切済み
- オフィス系ソフト
- vbs ファイル開かずに拡張子変更
xls→csvに拡張子を変更する サーバー側で実行したいのですが、Officeが入っていないためか、activeX コンポーネントはオブジェクトを作成できません。と出てきます。 エクセルファイルを編集するには、excel.applicationが必要だと思いますが、 使用せずに拡張子を変更することは可能でしょうか。
- ベストアンサー
- Visual Basic
- エクセルVBAからのファイル操作コントロール
いつもお世話になっております。 エクセル97を使用しています。 VBAでマクロを組む際、処理中で名前の判っているテキストファイル(拡張子txt)を退避させたいケースが発生しました。 単純にあるフォルダから、あるフォルダにコピーをとっておくだけなのですが、エクセルのVBAからコントロール出来るのでしょうか? 出来るなら、どう記述すれば良いか、ご指導願います。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル ファイルの名前の変更
エクセルのファイルをMy documentに保存しています。 名前を変更しようとすると 「拡張子を変更すると、ファイルが使えなく可能性があります。変更しますか?」 と警告が出ます。 ちなみに、ファイルの一つをコピーしてその名前を変更してみたら、通常、名前の前に表示されるエクセルの記号?(緑のX)が別のものになります。でも、そのファイルは開くことができるし、上書き保存もできます。 保存ファイル全てについて上記の警告がでます。ファイルは「○○.xls」の状態で保存されており、プロパティは「アーカイブ」にクリックしてあります。 自分では何も変えたつもりはないのですが、いつを境にこうなってしまったのか…以前の名前を普通に変更できる状態に戻したいです。 どなたか教えて下さい。お願いします。
- ベストアンサー
- オフィス系ソフト
- フォルダを指定し、複数のエクセルファイルの情報を別ファイルに保存したい。
エクセルのマクロで以下の実装を行いたいと思っています。 -------------------------------------------------------------- 1.あるフォルダを指定 2.そのフォルダの中に入っているエクセルファイルの特定列複数行(行数不明、データがなくなるまで)の情報を抜き出す 3.2で抜き出した情報を別ファイル(テキスト形式)に保存 -------------------------------------------------------------- ・2で指定するフォルダには複数ファイルがあります ・3で保存するファイル名は2で開いたファイル名と同じ名称にしたい(拡張子は別) フォルダの状態は以下のようになっています。 editor.xls ←マクロを組みたいエクセルファイル L folderA L A1.xls L A2.xls L A3.xls : L folderB L B1.xls L B2.xls L B3.xls : L forlerTextfile L A1.txt ←作りたいファイル L A2.txt 〃 L A3.txt L B1.txt L B2.txt L B3.txt : 分かりづらくて申し訳ありませんが、どなたかご教授いただけないでしょうか。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- フォルダ内の特定ファイル名表示
excel のVBAでmydoocumentの"abc"というフォルダの中にあるxls拡張子 付きのファイルを今開いているシートのA列にxxx.xlsと表示するマクロを書きたいのですが。教えてください。
- ベストアンサー
- オフィス系ソフト
お礼
いけました!! ありがとうございます!! >因みに「ファイルの拡張子名を変えるだけで、ファイルの中身などはそのままで構わない」 >のですよね? 実現したい環境では、「手動で.txtの拡張子を.xlsに変更→OK」ですので 大丈夫です!!! ありがとうございます!!!!