我有一张excel表来打印一组3页,我用它来制作时间表。我需要某种宏,它可以在每三页打印后更改数字。所以,前三张是0001,接下来是三张0002接下来的三张0003,等等。 如果可能的话,我需要能够从我离开的地方开始。这是我到目前为止所尝试的: Sub PrintCopies_ActiveSheet() Dim CopiesCount As Long Dim copynumber As Long CopiesCount = Application.InputBox("How many copies do you want?", Type:=1) 'Now the program wants you to input how many pages you like to print. 'You can input 100 here. For copynumber = 1 To CopiesCount With ActiveSheet .Range("E1").Value = …
我发现这个宏用于将工作簿中的多个excel工作表转换为单个命名的.csv文件,但不知道如何从转换的文件名中删除工作簿名称。我确信这很简单,但我对VBA一无所知。 Sub exportcsv() Dim ws As Worksheet Dim path As String path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) For Each ws In Worksheets ws.Copy ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv", leFormat:=xlCSV, CreateBackup:=False ActiveWorkbook.Close False Next End Sub