No.1ベストアンサー
- 回答日時:
Sheets("A").Copy Before:=Workbooks("Book1").Sheets(1)
>Office2003のエクセルでVBAを勉強しております。
方法が解らなければ、記録マクロを確認するのが一番です。
動作が理解出来たら、コードの最適化を行ってください。
この回答への補足
補足です。
>方法が解らなければ、記録マクロを確認するのが一番です。
>動作が理解出来たら、コードの最適化を行ってください。
を行い
Workbooks.Open Filename:="test_1.xls"
Windows("test_1.xls").Activate
Sheets("Sheet1").Cells.Select
Selection.Copy
Windows(strNewFileName).Activate
Sheets("Sheet1").Cells.Select
ActiveSheet.Paste
する事で一応できました。
後は最適化を行いたいと思います。
有難うございました。
早速のアドバイス有難うございます。
Sheets("A").Copy Before:=Workbooks("Book1").Sheets(1)
を試しました。
実際には下記のように書いてテストしました。
結果は「インデックスが有効範囲にありません」とエラーとなってしまいました。
Private Sub btnCombine_Click()
Dim result As Boolean
result = makeNewExcelFile()
Workbooks.Open Filename:=lblPath_1.Caption
Worksheets("Sheet1").Copy After:=Workbooks(strNewFileName).Worksheets("Sheet3")
End Sub
'新規エクセルファイルを作成
Function makeNewExcelFile() As Boolean
Dim intSheetCnt As Integer
'これで新規ブックでのシート数を1にします
Application.SheetsInNewWorkbook = 1
Workbooks.Add
strNewFilePath = "C:\"
strNewFileName = Format(Date, "yyyymmdd") & ".xls"
ActiveWorkbook.SaveAs strNewFilePath & strNewFileName
ActiveWorkbook.Close
End Function
コピー元エクセルファイルとコピー先エクセルファイルの指定の仕方がよくわかりませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) エクセルでシートを別のブックにコピーや移動する際に出るエラーのような窓を回避するには? 1 2023/06/05 21:51
- Excel(エクセル) エクセルで別ファイルから一つのシートだけをコピーする方法(ファイル間でシートだけをコピー) 1 2022/12/01 19:28
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) エクセルで、ファイルの分割 と ファイルの集約 1 2022/08/28 08:58
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルサーバ上のファイルが...
-
同じファイル名 上書きしないフ...
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
エクセルのハイパーリンクがコ...
-
バッチファイル 別ファイルにリ...
-
frxファイルの役目
-
バッチファイルのコピーで
-
DOSコマンドのコピー完了判定
-
エクセルVBAで開いているファイ...
-
Vba初心者です。下記のコード助...
-
パワポでスライドをコピーでき...
-
ファイルをコピーできない
-
bat 同名ファイルコピー時にリ...
-
コピーする方法:VBA API関数
-
xcopyでのバッチコピー方法でコ...
-
SDカードのコピーと再生の仕方...
-
AVIUTlって iPadでも使えますか?
-
VB6でのファイルコピーの終了検...
-
VB.NETでのネットワーク参照
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
VBA
-
バッチファイル XCOPYで上書き...
-
エクセルのハイパーリンクがコ...
-
Vba初心者です。下記のコード助...
-
frxファイルの役目
-
バッチファイル 別ファイルにリ...
-
vbsでExcelのシートをコピーす...
-
エクセルVBAで開いているファイ...
-
バッチファイルのコピーで
-
bat 同名ファイルコピー時にリ...
-
同じファイル名 上書きしないフ...
-
ファイルサーバ上のファイルが...
-
エクセル2010、図が大きすぎま...
-
パワポでスライドをコピーでき...
-
[エクセル]コピーするとオブジ...
-
FTPとファイルコピーの違いにつ...
-
FSO.CopyFileでのエラー無視方法
-
アクセス クエリを別のファイ...
-
ファイルをコピーできない
おすすめ情報