Копирование и вставка листа от одного к другому

Question

У меня есть 2 разных файлов первенствовать, как указано ниже:

1. Report.csv
2. Report.Xlsm

Оба файла имеет имя рабочего листа «Отчет "

Мне нужен сценарий vba для этого с MsAccess.

Мне нужно скопировать лист «Отчет» из Report.csv и заменить его на лист «Отчет» в Report.xlsm и сохранить файл xlsm. Также необходимо закрыть приложение. Код ниже выполняет задание, за исключением того, что он не заменяет лист «Отчет».

Private Sub CopyPaste() 

Dim CopyFrom As Object 
Dim CopyTo As Object ' Workbook 
Dim CopyThis As Object 
Dim xl As Object 'New Excel.Application 


Set xl = CreateObject("Excel.Application") 
xl.Visible = True 


Set CopyFrom = xl.Workbooks.Open("C:\Users\me\desktop\report.csv") 
Set CopyThis = CopyFrom.Sheets(1) ''Sheet number 1 

Set CopyTo = xl.Workbooks.Open("C:\users\me\desktop\Report.xlsm") 
CopyThis.Copy After:=CopyTo.Sheets(CopyTo.Sheets.Count) 

CopyFrom.Close True 
CopyTo.Save 
CopyTo.Close True 
xl.Quit 

End Sub 

Answer 1

Здесь вы идете. Вставить это и увидеть:

Sub CopyPaste() 

Dim CopyFrom As Object 
Dim CopyTo As Object ' Workbook 
Dim CopyThis As Object 
Dim xl As Object 'New Excel.Application 


Set xl = CreateObject("Excel.Application") 
xl.Visible = True 


Set CopyFrom = xl.Workbooks.Open("C:\Users\me\desktop\report.csv") 
Set CopyThis = CopyFrom.Sheets(1) ''Sheet number 1 

Set CopyTo = xl.Workbooks.Open("C:\users\me\desktop\Report.xlsm") 

CopyThis.Copy After:=CopyTo.Sheets(CopyTo.Sheets.Count) 

'Start of new code added 
xl.DisplayAlerts = False 
CopyTo.Sheets(1).Delete 'deletes the sheet that was initially there 
xl.DisplayAlerts = True 
CopyTo.Sheets(1).Name = "report" 'now the copied sheet has the index of 1 
'End of new code added 

CopyFrom.Close True 
CopyTo.Save 
CopyTo.Close True 
xl.Quit 

End Sub 

Answer 2

Попробуйте это:

Private Sub CopyPaste() 

Dim CopyFrom As Object 
Dim CopyTo As Object ' Workbook 
Dim CopyThis As Object 
Dim xl As Object 'New Excel.Application 


Set xl = CreateObject("Excel.Application") 
xl.Visible = True 


Set CopyFrom = xl.Workbooks.Open("C:\Users\me\desktop\report.csv") 
Set CopyThis = CopyFrom.Sheets("Report") ''Sheet number is ok if it never move, name may be safer 

Set CopyTo = xl.Workbooks.Open("C:\users\me\desktop\Report.xlsm") 

xl.Application.DisplayAlerts = False 
CopyTo.sheets("Report").Delete 
xl.Application.DisplayAlerts = True 

CopyThis.Copy After:=CopyTo.Sheets(CopyTo.Sheets.Count) 

CopyFrom.Close True 
CopyTo.Save 
CopyTo.Close True 
xl.Quit 

End Sub