ＶＢ．ＮＥＴでエクセルシートを別のエクセルへコピーには？ (ID:109775)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Option Explicit ' すべての変数に対して、明示的な宣言を強制 'エクセル宣言 Public File1 As New Excel.Application ' Public File2 As New Excel.Application ' ← Excel.Application は１つでできる Public File1_book As Excel.Workbook ' コピー元ファイル Public File2_book As Excel.Workbook ' コピー先ファイル ' Public File1_book_sheet As Excel.Worksheet ' Public File2_book_sheet As Excel.Worksheet Private Const UserName As String = "*****" Private Const UserDeskTop As String = "C:\Documents and Settings\" & UserName & "\デスクトップ\" Private Const File1_Name As String = "TEST1.xls" Private Const File2_Name As String = "TEST2.xls" Private Const Sheet1_Name As String = "Sheet1" Private Const Sheet2_Name As String = "SheetA" Private Sub cmdCopy_Click() ' Dim sheet_name As String 'エクセルオープン Set File1 = CreateObject("Excel.Application") File1.Workbooks.Open UserDeskTop & File1_Name File1.Workbooks.Open UserDeskTop & File2_Name Set File1_book = File1.Workbooks(File1_Name) Set File2_book = File1.Workbooks(File2_Name) File1.Visible = True 'excel表示 File1.ScreenUpdating = True ' False にすれば処理が早くなるかも？ 'シートコピー File1_book.Sheets(Sheet1_Name).Copy after:=File2_book.Sheets(Sheet2_Name) File1.ScreenUpdating = True ' False にしてた場合表示更新 End Sub ' デバッグしてないけど(汗)こんな感じで動かないかなぁ…？。ボタン cmdCopy を作って UserName も変更してください。