• 締切済み

ソースコードでファイル名のみ変更したい

A.csv から B.xlsx に必要個所をコピペするマクロを作成しました。 同じことを C.csv と D.xlsx のファイルで行いたいです。 ソースコード中のファイル名を、A→C、B→Dに変える方法(手直し以外で)ってあるのでしょうか?? 今のところ手で書き換えてますが、面倒&つまらなくて困ってます。 良い方法を教えて下さい。 

みんなの回答

回答No.1

何かつけるファイル名に法則でもあればそれを記述すればいいけど、そうじゃない場合、結局なんらかの方法でファイル名を指定しなくてはならないでしょう? 二回の入力は必須だと思いますよ。あとはどうやって入力するか。フォームを作って選択式にするとか、inputボックスで入力するとか。デフォルトを決めといてok押すだけでよくするとか、組み合わせを登録しておいて、一個選ぶともう一つも決定するようにするとか。そのくらいでしょうかね。

yngnhplss
質問者

お礼

テキストエディタの存在を思い出しました! 問題解決しそうです。

yngnhplss
質問者

補足

ファイル名に法則性がない場合です。 A.csvの3か所を、B.xlsxのそれぞれの場所にコピペしていて、その度にそれぞれのファイルをアクティブにしてます。(A.activate X.copy B.activate Y.paste×3) なので、ファイル名が変わると3か所か変更しなくてはなりません。 inputボックスは使えそうな雰囲気がします。 デフォルトを決めといて~、とはどういうことでしょうか?

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • htmlファイルをブラウザで開くと、ソースコードが

    htmlファイルをブラウザで開くと、ソースコードが表示されてしまいます。 簡単なソースをコピペして、macでhtmlファイルに保存。 その後safariで開くと、ソースコードが表示されてしまいます。 因みにソースコードはホームページに載っている簡単な見本を、 そのままコピペで幾つか試したのですが、駄目でした。 因みに、windowsで、googlechromeで試してみましたが結果は同じでした。 解決方法をご教授頂ければ幸いでございます。

    • ベストアンサー
    • Mac
  • ソースコードの差分の反映

    C# で書かれた2つのソースコードファイル(仮にA、B)があります。 元は、同じソースコードなので、共通した部分が大部分です。 ですが、AとBとで異なる部分がソースファイル中に散らばっています。 Aをバージョンアップしたら、Bもバージョンアップします。 Aに加えた変更をBにも反映したいのですが、手作業でやらずに反映させる方法はありますか。 このような作業を楽に行うのにはどうすればよいのでしょうか。 「AとBの差異を調べておいて、新しいAから新しいBを作り出す」という方法も考えられますが、 これも手作業では行いたくありません。 ちなみに、OSはWindowsXPで、開発は Visual C# .NET で行っています。

  • 複数のcsvファイルをマクロ(VBA)で取り込みたい

    複数のcsvファイルをマクロ(VBA)で取り込みたい csvファイルの中身が、 20090507 120508 osaka 項目1,項目2,項目3,・・・・・,項目10 a1,a2,a3,・・・・・,a10 b1,b2,b3,・・・・・,b10 c1,c2,c3,・・・・・,c10 や 20090507 132529 hokkaido 項目1,項目2,項目3,・・・・・,項目10 d1,d2,d3,・・・・・,d10 e1,e2,e3,・・・・・,e10 f1,f2,f3,・・・・・,f10 となっているcsvファイルが特定のフォルダの中に100以上あります。 このcsvふぁいるの5行目だけをaccessに書き込んでテーブルに追加していきたいと思っています。 項目1,項目2,項目3,・・・・・,項目10 a1,a2,a3,・・・・・,a10 d1,d2,d3,・・・・・,d10 このようなテーブルができればいいのですが・・・ csvファイルを開く→5行目をテーブルに追加→csvファイルを閉じる(削除する)→次のcsvファイルを開く→5行目をテーブルに追加→csvファイルを閉じる(削除する) この流れでいいと思うのですが方法が分かりません。 丸投げですがよろしくお願いします。

  • エクセルVBA ファイル名操作

    エクセルマクロのコードにおきまして 「フォルダの選択」ダイアログから エクセルファイル 123.xlsxを例えば 開くときに それをa.xlsxという名前に変えて 以下のそれに続くVBAコードにおいて a.xlsxを操作したいのですが、 a = Application.GetOpenFilename() Workbooks.Open a これを実行すると求めるダイアログが表示されて 使いたい123.xlsxを開くをクリックしますが これでは123.xlsxがa.xlsxにはなりません このa.xlsxのファイル名で別途ファイル作成する方法を 御教示いただけると助かります よろしくお願いします win10 office365 コードは以下 部分ですが こういう流れで作成したい所存です Sub あいう() a = Application.GetOpenFilename() Workbooks.Open a 'b.xlsxファイルを新規作成 Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Users\USER\Desktop\あいう\b.xlsx", FileFormat:=xlXMLSpreadsheet 'a.xlsxファイルの1行目のA1~AG1のセルの値をコピー Workbooks("a.xlsx").Worksheets("Sheet1").Range("A1:AG1").Copy 'b.xlsxファイルのA3~AG3のセルに貼り付け Workbooks("b.xlsx").Worksheets("Sheet1").Range("A3:AG3").PasteSpecial xlPasteValues 以下省略 よろしくお願いします

  • この動作のコードを教えてください。ExcelVBA

    以下の動作をするためのコードを教えてください。 ExcelVBAでお願いします。 フォルダ1、2に入っているファイルが以下のようになっていた場合 フォルダ1 A.xlsx,B.xlsx,C.xlsx フォルダ2 A.xlsx,C.xlsx,E.xlsx B.xlsxはフォルダ2に存在しない E.xlsxはフォルダ1に存在しない とmsgboxを出したい。 ヒント:フォルダ1を指定したときにフォルダ内にあるExcelのファイル名を配列にいれる処理が必要

  • (VBA一部使用中)手作業部分を減らしたいです・・

    こんばんは、 EXCEL2010を使っています。 A.xlsm B.xlsm C.xlsm BOOK1.xlsx ~ BOOK10.xlsx(ファイルごとに行数はバラバラ、列数はA~Dで固定) というファイルがあり、すべて開いている状態です。 使用しているのはすべてSheet1のみです。 1.BOOK1.xlsxのA~D列を手動でコピー 2.A.xlsmのA~D列にBOOK1.xlsxのA~D列を手動で貼付け macro1というマクロを実行(A~E列をマクロでB.xlsmのA~E列にコピー&貼付け) 3.B.xlsmでmacro2というマクロを実行(I1~K1に数値が出現、マクロでコピー状態) 4.C.xlsmのB18~D18に手動で貼付け 5.1に戻ってBOOK2.xlsxで以下同じ作業   C19~D19に貼付け   これをBOOK10.xlsxまで続けて保存 これをA,B,Cのファイルを使用したまま マクロを使って簡略化することは可能でしょうか? (例えばボタンを押したら1~4までを自動でやってくれるような) よろしくお願いいたします。

  • ExcelのVBAに関して教えてください。

    下記のようにCSVファイル名を複数入力してマクロ実行したら転記するようにしたいです。 やり方がわかる人いたら、教えてください。 (1)C10にa、C11にb、C12にc、C13にdを入力 (2)マクロ実行ボタンを押す (3)aのcsvファイルのG12~G36をD10~D34に転記。 ※aのパスは¥¥mm¥nn¥cc¥a.csv  bのcsvファイルのG12~G36をD35~D59に転記。 ※bのパスは¥¥mm¥nn¥yy¥b.csv  cのcsvファイルのG12~G36をD60~D84に転記。 ※cのパスは¥¥mm¥nn¥kk¥c.csv  dのcsvファイルのG12~G36D85~D109にを転記。※dのパスは¥¥mm¥nn¥bb¥d.csv  難しい点は最下層のフォルダが異なっている点です。。  最下層のフォルダ違うが、csvファイルを転記する方法はありませんか?

  • VBスクリプトでcsvファイルを比較

    別々のCSVファイルがありますが同じ形式にしておいて、 a.csv a,b,c b.csv d,e,f aとd、bとe、cとfと順番に比較する方法を教えて頂けますでしょうか。

  • EXCEL VBA 複数ファイル値を集計

    yakkunnと申します。 お世話になっております。 下記処理を実現するためのEXCEL VBAコードをご教授いただけないでしょうか。 ■やりたい事 デスクトップに「実績集計.xlsx」というファイルがあります。 このファイルにボタンを配置し、このボタンをクリックしましたら、C3セルに記述されているファイルパス配下を見てその配下ファイルを全て開き、各ファイルの値を「実績集計.xlsx」に全て転記するVBAコードをご教授いただきたく思います。 ■転記内容 例えばA.xlsx~C.xlsxという3つのファイルがあるとします。この3つのファイルを開いて・・ 左が「A.xlsx」、右が[実績集計.xlsx」とします 処理付を転記・・B4セル⇒B7へ転記 コードを転記・・B7セル⇒C7へ転記 商品名を転記・・C7セル⇒D7へ転記 数量を転記・・ D7セル⇒E7へ転記 金額を転記・・ E7セル⇒F7へ転記 これをA.xls~C.xlsまで繰り返し、実績集計.xlsxに値をどんどん転記したいです。 金額のF列の最後に合計金額が出力されれば最高です。 よろしくお願いいたします。

  • CSVからエクセルへの取り込み

    エクセル・マクロ初心者です。 CSVファイルの一部分を、エクセルで読み込みたいのですが、 マクロでの作成は可能でしょうか。 (例) ・CSVファイル(読み込み側)  ABCDE 1 2 3 4 5 ・EXCELファイル(書き込み側)  ABCDE 1 2 3 4 5 ・CSV側は、複数のファイルがあります。 ・EXCEL側は、1つのシートにCSVのデータを書き込みます。 ・CSVファイルAの1B、2B、3B、4B、5Bを読み込み、EXCELファイルの、1A、1B、1C、1D、1Eに書き込みます。 ・CSVファイルBの1B、2B、3B、4B、5Bを読み込み、EXCELファイルの、2A、2B、2C、2D、2Eに書き込みます。 ・CSVファイルCの1B、2B、3B、4B、5Bを読み込み、EXCELファイルの、3A、3B、3C、3D、3Eに書き込みます。 というような事をやりたいのです。 どなたか、ご指導のほどよろしくお願いします。

このQ&Aのポイント
  • DCP-J1200NのWi-Fi接続でコピーができない問題について相談します。
  • お使いの環境はiPhone12で無線LAN接続されており、関連アプリとしてdropboxを使用しています。
  • 対応が必要な問題のため、解決方法について教えてください。
回答を見る