[英]Excel VBA loop until blank cell and copy worksheet to new workbook
[英]VBA (excel) copy worksheet to new workbook
現在,我正在嘗試創建一個excel宏,該宏應從我的工作簿中復制一個工作表。 該工作表應另存為一個新的Excel文件,並使用單元格B1中的值命名。 到目前為止一切正常。 問題是:我希望副本是備份的。 因此,表(副本)中的值不應連接到原始表。 簡而言之:我只想復制格式+值,而不要復制表中的公式。 您對我如何進行這項工作有任何想法嗎?
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim FName As String
Dim FPath As String
Dim wbkExport As Workbook
Dim shtToExport As Worksheet
FPath = "C:\Users\User\Desktop\Artikelnummern"
FName = Worksheets("Test").Cells(1, 2).Value
Set shtToExport = ThisWorkbook.Worksheets("Test")
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False 'Possibly overwrite
without asking
wbkExport.SaveAs Filename:=FPath & "\" & FName & ".xlsx"
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
End Sub
替換行:
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
附:
shtToExport.Cells.Copy
wbkExport.Worksheets(wbkExport.Worksheets.Count - 1).Range("A1").PasteSpecial xlPasteValues
wbkExport.Worksheets(wbkExport.Worksheets.Count - 1).Range("A1").PasteSpecial xlPasteFormats
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.