- 締切済み
VBAでテキストコピーをする時に
でテキストファイルの内容をコピーする時に、コピー元のディレクトリと、保存先のディレクトリを毎回指定できるプログラムをVBAで書きたいのですがわかりません。 どなたかご教授いただけないでしょうか?
- pavidl
- お礼率33% (2/6)
- その他(プログラミング・開発)
- 回答数2
- ありがとう数1
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- fujillin
- ベストアンサー率61% (1594/2576)
ディレクトリをユーザ指定させられればよいということでしょうか? こんな感じでは?(フォルダーまでのアドレスが取れます) With Application.FileDialog(msoFileDialogFolderPicker) If .Show <> True Then Exit Sub folderPath = .SelectedItems(1) & "\" End With MsgBox (folderPath) チェックその他は適宜いれてください。
- sh_hirose
- ベストアンサー率66% (56/84)
ここを参考に http://www.happy2-island.com/excelsmile/smile03/capter00804.shtml vntFileNameに選択したファイルパスが入るので後は Openを使用して読み取るなり、書き込むなりしてください。
関連するQ&A
- VBAで、テキストファイルの削除はどうするのでしょうか。
VBA で、あるディレクトリにあらかじめ作成、保存してあるテキストファイルを、Input Box からそのファイル名を指定してExcel に読込み、所定の処理をした後、元のテキストファイルをディレクトリ上から削除するにはどうしたらよいでしょうか。 いつも決まった名前のファイルを削除するのは Kill コマンドで容易にできたのですが、InputBox から入力した任意の名前のファイルを削除する方法を教えていただけませんか。
- ベストアンサー
- オフィス系ソフト
- VBAで、テキストファイルの編集
プログラムの初心者です。 困ってます。お教え下さい。 VBA上の制御で、あるテキストファイルのデータをコピーして、 別のテキストファイルに貼り付けして、別保存したいのですが、 分かりません。 テキストファイルを開くだけでしたらできたのですが、 それからが・・・・ Call Shell("C:\WINNT\system32\notepad.exe c:\text1.txt") すいません、お教え下さい。
- 締切済み
- オフィス系ソフト
- EXCEL VBAでファイル名を変更してコピー
決められたフォルダーの中にある決められた名称のファイル(仮にc\document\aaa.xls)を、決められたフォルダーにコピー元のファイル名+毎回指定した数字を付加したファイル名(仮に\document\aaa9999.xls)としてコピーする方法をエクセルのVBAで実現する方法を教えてください。指定する数字の9999はプログラム起動後にダイアログBOXで指定できればベストですが、難しければ指定のセルに毎回入力でもかまいません。
- ベストアンサー
- Visual Basic
- テキストの内容を部分的にコピー
十数行あるテキストファイルの内容を、 下5行だけ他のテキストファイルにコピーするプログラムを作りたいのですが、ファイルのアクセス位置をどうしたらよいでしょうか。 全体をコピーするところまでは出来たのですが、 下5行を指定するという部分がうまくいきません。 fseekを使えばいいかと思っているのですが、いい方法はないでしょうか。 よろしくお願いします。
- 締切済み
- C・C++・C#
- VBAでのテキストコピー
10000行ほどのテキストファイルから、先頭5文字が同じ文字の間、別のテキストファイルにコピーし、先頭5文字が変わるまで同じ処理ができるような構文を書きたいです。 どなたかご教授願えませんでしょうか?
- 締切済み
- Visual Basic
- EXCEL 2003のVBAでテキストファイルの取り込み方
EXCEL 2003のVBAでテキストファイルの取り込み方 EXCEL 2003のVBAでテキストファイルのみをとりこむものを組もうと思います。 - 読み込むテキストファイル名は一定の決まりがあります。AAxxxx.txt あるいは ZZxxx.txt といった感じで先頭文字はAAまたはZZで中のxxxは数字の可変(日付)です。 - Directoryはどこに入るか決まりがありません。(このマクロを使用するユーザーがどこのDirectoryにテキストファイルを保存しているかわからないため) FILEN = Application.GetOpenFilename If FILEN = False Then Exit Sub End If Workbooks.OpenText Filename:=FILEN でやると、Directoryの問題は解決しますが、テキストファイル名を絞り込めません いい方法をご教示いただければ助かります。
- ベストアンサー
- オフィス系ソフト
- vbs ファイル検索後、任意の場所にコピー
vbsにて、以下のようなことを実現したいのですが、よくわからないので、ご教授願います。 ・実現したいこと インプットボックスに検索したいファイル名を張りつけて、検索対象ディレクトリ配下から、ファイルを任意の場所にコピーしたい。 コピー参照元は、3つ別々のディレクトリ配下の中から、一つ指定して、検索としたい。 対象ファイルが見つかったら、保存先をフォルダを指定できるダイアログを表示して、任意の場所にコピーしたい。 vbsでの作成方法がよくわからないので、ご教授いただければ助かります。宜しくお願いいたします。
- 締切済み
- Visual Basic
- テキストファイルのコピー
あるデータ(数値が入ったデータ)をテキストファイルで保存しました。 で、これと全く同じテキストファイルを500個作りたいです。 そうなるとコピーして貼りつければ良いのですが、500個も作りたいので、1個1個コピーして貼りつけしたらかなりの時間がかかります。 いっぺんに1つのテキストファイルを500個コピーして全く同じテキストファイルを500個にしたい時はどうすればいいでしょうか? やり方ありますか? 詳しい方教えてください。
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルでシートを新規Bookにコピーして保存
いつもお世話になっております。 毎回お世話になっております。 過去にも似たような質問をさせていただいてその時々の要求は解決しているのですが、悲しいかな各々のVBAが組み合わせられません。(というレベルです) やりたいことは、特定のBookのアクティブシートを別の新規BookのSheet1にコピーして数値で貼り付ける。➣ここまではできました。 問題はこの、新規Bookを指定のセル(D5とA1)の内容をファイル名にして指定のフォルダに保存する。が出来ません。 1.新規BookでVBAを動かしたいのですが、複数のPCで使う時にどこに記録するのかわかりません。 2.コピーして数値で貼り付けから保存までのVBAは元のシートから直接(1回の操作)でも、新規Book1を表示させてからの操作でもどちらでも良いです。 3.Book1を保存するファイル形式はVBAが含まれないxlsxが好ましいです。(メールで送信するので)
- ベストアンサー
- Excel(エクセル)
- C++ テキストファイルをクリップボードにコピー
ブログの更新を楽にするためにいくつか言葉を入力したら内容を生成するプログラムを作ったのですが、 出力したテキストファイルを毎回開いて全てコピーしているので、ほんの少しだけですが手間が掛かります。 どうせなら、実行したときに生成したテキストファイルをクリップボードにコピーできたら、わざわざ生成したテキストファイルを開いてコピーする必要がないと考え、調べたのですが分かりませんでした。 どなたか教えてくれたら幸いです。よろしくお願いします。
- 締切済み
- C・C++・C#
お礼
このサイトわかりやすいですね。 かなり解決に近づきそうです。 ありがとうございます。