2017-06-06 6 views
0

これを入力してください。次のコードでは、MayData.csvシートのデータをコピーし、Master2017.xlsxに貼り付けます。シートをダイナミックにする方法

Master2017はメインスプレッドシートで、毎月更新されるデータが含まれています。 したがって、月(JuneData.csv、JulyData.csvなど)に応じてMayData.csvが変更されます。

xxxData.csvが動的であるようにするにはどうすればよいですか?今はマクロを実行しようとしますが、毎回シートの名前を変更する必要があります。ここで

は、どのようなコードよりか(私は簡単なように、それの一部のみを含む)のような小さいルックスです:

Dim intChoice As Long 
Dim strPath As String 
Dim intUsedRows As Integer 
Dim intCounter As Integer 
Dim Lastrow As Long 

'Open Selected File 
Workbooks.Open (strPath) 
Columns("C:D").Select 
Selection.Delete Shift:=xlToLeft 
Columns("F:H").Select 
Selection.Delete Shift:=xlToLeft 
Columns("G:H").Select 
Selection.Delete Shift:=xlToLeft 
Columns("B:B").Select 
Windows("Master 2017.xlsx").Activate 
Windows("MayData.csv").Activate 
Columns("B:E").Select 
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
Windows("Master 2017.xlsx").Activate 
Windows("MayData.csv").Activate 
Columns("I:S").Select 
+0

いつでも「xxxData.csv」ワークブックが1つしか開いていない場合は、開いているすべてのブックをループして一致するものを見つけることができます。 –

+0

お返事ありがとうございます。それは、私がどのように接近するのか分からないことの一つです。 – Rick

+0

[データ]タブ> [テキストから]を使用し、ウィザードでスキップする列を選択できます。http://www.jkp-ads.com/Articles/importtext.asp – Slai

答えて

0

は、CSVファイルをユーザが選択しますか? [はい]の場合は、その変数を開いたときに後で参照できるようにワークブック変数を設定できます。

関連する問題