將工作表複製到替換當前數據的不同工作簿中

我希望有人能幫助我。將工作表複製到替換當前數據的不同工作簿中

我有兩個工作簿。 Wb1 = FAC試用版 Wb2 = ROMAN

這兩個工作簿中都有很多工作表。我想要發生的是Wb2中的數據，名爲Format的工作表被複制到名爲Format的Wb1工作表中。

Wb1中的工作表已被命名，並且將從Wb2每天更新一次。 Wb1工作表格式中的數據每次都會被覆蓋。我期待這會發生在點擊一個命令按鈕。在單擊命令按鈕時，Wb2不會打開。

我發現了一些代碼，但每次運行代碼時都會創建一個新的工作表，並且我不確定如何更改以適合我的需要。

預先感謝您的幫助是極大的讚賞

來源

2015-08-03 Helz

前請編輯您的問題併發布您目前使用的代碼。這將幫助我們幫助你。 – psychicebola

我使用的代碼是 – Helz

您可以輕鬆地記錄了一段代碼，以這個做自己，簡單地用「錄製宏」的開發者功能區。

現在，下面應該做你正在做的事情（記得要更新工作簿2的文件路徑）。

我剛剛從ROMAN工作簿複製了「格式」工作表，然後刪除了現有的「格式」工作表，並將新格式重新命名爲「格式」。

Sub wsCopy() 
    Dim wb1 As Workbook, wb2 As Workbook, ws1Format As Worksheet 

    Application.ScreenUpdating = False 
    Set wb1 = ThisWorkbook 
    Set wb2 = Workbooks.Open("[ENTER FILE PATH]\ROMAN.xlsx") 
    Set ws1Format = wb1.Sheets("Format") 
    Set ws2Format = wb2.Sheets("Format") 

    '' Copy the "Format" worksheet to wb1. 
    ws2Format.Copy Before:=ws1Format 
    wb2.Close 

    '' Delete existing "Format" worksheet. 
    Application.DisplayAlerts = False 
    ws1Format.Delete 
    Application.DisplayAlerts = True 

    '' Rename new sheet to "Format". 
    wb1.Sheets("Format (2)").Name = "Format" 
    Application.ScreenUpdating = True 
End Sub

來源

2015-08-03 11:35:07

我被使用的代碼是

私人小組CommandButton1_Click（）

隨着工作簿（「ROMAN.xls」） .Sheets（「格式化」）Copy_ 之前：=工作簿（「FAC Trial.xls」）。表（「格式化」）

結束隨着

結束子

由於是顯而易見的我必須有兩個工作簿打開，但我只是希望它的數據複製到工作表的格式，而無需創建一個新的

來源

2015-08-04 01:31:20 Helz

您可以使用@Iturner發佈的代碼。他是對的，如果你使用宏記錄器，你也可以自己得到它。但是，我會根據他的代碼給你另一個答案。 – psychicebola

這個答案是基於@Ituner

Sub wsCopy() 
    Dim wb1 As Workbook, wb2 As Workbook, ws1Format As Worksheet 

    Application.ScreenUpdating = False 
    Set wb1 = ThisWorkbook 
    Set wb2 = Workbooks.Open("[ENTER FILE PATH]\ROMAN.xlsx") 
    Set ws1Format = wb1.Sheets("Format") 
    Set ws2Format = wb2.Sheets("Format") 

    '' Copy the cells of the "Format" worksheet. 
    ws2Format.Cells.Copy 


    '' Paste cells to the sheet "Format". 
    wb1.Sheets("Format").Paste 
    wb2.Close false 'remove false if you want to be asked if the workbook shall be saved. 
    Application.ScreenUpdating = True 
End Sub

來源

2015-08-04 06:08:16 psychicebola

將工作表複製到替換當前數據的不同工作簿中

回答

相關問題