bir excel çalışma kitabındaki verileri ana çalışma kitabına kopyala düğmesine basarak

Question

Aynı çalışma kitabı yerine başka bir çalışma kitabına kaydetmek mümkün mü? usta bir çalışma kitabı yapıyoruz. günlük güncellemeyi yapıyoruz, bir kez güncellendikten sonra butona basarak güncel çalışma sayfasındaki sayfa adı ile ana çalışma kitabına kopyalamanız gerekiyor. sheet2 içine aynı çalışma kitap haline kopyalama için çalışan kodunun altına

Private Sub CommandButton1_Click() 

On Error GoTo Err_Execute 

Sheet1.Range("A1:J75").Copy 
Sheet2.Range("A1").Rows("1:1").Insert Shift:=xlDown 

Err_Execute: 

If Err.Number = 0 Then 

MsgBox "All have been copied!" 

ElseIf Err.Number <> 0 Then 

MsgBox Err.Description 

End If 

End Sub 

Answer 1

Evet, bu mümkün. Sadece onlara bakın edebilmek için düzgün çalışma kitapları ayarlamak zorunda:

Dim masterWB As Workbook 
Dim dailyWB As Workbook 

'Set Current Workbook as Master 
Set masterWB = Application.ThisWorkbook 
'Set some Workbook as the one you are copying from 
Set dailyWB = Workbooks.Open("PATH TO WORKBOOK HERE") 

'Copy the Range from the Workbook and Paste it into the MasterWB 
dailyWB.Sheets(1).Range("A1:J75").Copy masterWB.Sheets(1).Range("A1").Rows("1:1") 

Close the Workbook without saving 
dailyWB.Close False 
'Clear the Variables 
Set dailyWB = Nothing 
Set masterWB = Nothing 

Sadece ihtiyaçlarına uygun Sheets değiştirebilir ve Usta Çalışma Sayfasında bir çalışma sayfası oluşturmak istiyorsanız o

çalışması gerekir ve bu kullanmak adlandırın:

Dim tempWS as Worksheet 
Set tempWS = masterWB.Sheets.Add 

tempWS.Name = Format(Date, "mm-dd-yyyy") 

Eğer isim için kullanmak ihtiyaçlarınıza "aa-gg-yyyy" değiştirmek istediğiniz Format bağlı. e. g. "yyyy.mm.dd"