ファイル取り込み

• ファイルが存在しない場合は、無視する

    If Dir(FileLocation & Name) <> "" Then 'Nameという名前のファイルが存在する場合は...

 

• マウスで取り込む箇所を指定する

For a = Selection(1).Row To Selection(Selection.Count).Row

に変えればＯＫ．それぞれの意味は以下の通り。

Selection(1).Row ‘マウスで選択された部分の一番上

Selection(Selection.Count).Row ‘マウスで選択された部分の一番下
 

• ファイル名を変数で指定する

Set DataSheet = ActiveSheet ‘現在のファイルをDataSheetと呼ぶことにする

DataSheet.Activate ‘DataSheetをactivateする

• コピーして新しいワークシートとして保存する

        ActiveSheet.Copy '新しいブックへコピー

        Name = "sample_new"

         ActiveWorkbook.SaveAs FileName:=Name, FileFormat:=xlWorkbookDefault '現在のファイルをNameという名前の別のファイルとして保存する