工作表粘貼值/另存爲然後使用vba返回原始文件

我有一個工作簿，它執行幾個依賴於一個變量並自行填充的Excel函數。我有一個循環來創建這些表單並保存在一個目錄中，但在此之前我想複製所有並粘貼特殊的，以便公式將消失。工作表粘貼值/另存爲然後使用vba返回原始文件

Sub SaveAs1() 
For i = 172 To 225 
    Dim SaveName As Integer 
    SaveName = ActiveWorkbook.Sheets(1).Range("bi1").value 
    Application.ActiveWorkbook.SaveAs "C:\" & SaveName 
    Range("bi1") = i + 1 
Next 
End Sub

我明白這一點最後用試錯法

Sub Save() 

Rem kaydetmece dongusu 

For i = 172 To 180 Step 1 

    Application.DisplayAlerts = False 

    Workbooks.Open Filename:="C:\" 

    Range("bi1") = i + 1 

    Dim SaveName As Integer 
    SaveName = ActiveWorkbook.Sheets(1).Range("bi1").value 

    Range("A1:BE63").Select 
    Range("a1").Activate 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 

    Application.ActiveWorkbook.SaveAs "C:\" & SaveName 

    Columns("BE:BU").Select 
    Selection.Delete Shift:=xlToLeft 

    Sheets("CAL").Select 
    ActiveWindow.SelectedSheets.Delete 

    Sheets("sahadan").Select 
    ActiveWindow.SelectedSheets.Delete 

    ActiveWorkbook.Close True 

Next 

End Sub

來源

2012-10-04 serhat

除了說你幾次不知道VBA，你真的沒有解釋爲什麼你的代碼不工作。你能提供一些細節嗎？ – psubsee2003

問號「？」在哪裏？請提供一個，以便我們知道問題是什麼 – whytheq

如果你問如何值粘貼，你這是怎麼做到這一點。將「A1」替換爲您需要使用的實際範圍。

Range("A1").Copy 
Range("A1").PasteSpecial xlPasteValues

來源

2012-10-04 08:41:43 mattboy

工作表粘貼值/另存爲然後使用vba返回原始文件

回答

相關問題