自学成才,我还没有学到有关 Excel VBA 的所有知识。老实说,我知道一些基础知识,但没有我应该知道的那么多,所以这个问题虽然可能是一个通用的基本问题,但可能应该由了解 VBA 的人知道,但在我学习我需要的情况下继续前进...所以我需要一个解释。
什么时候需要定义 Sub 或 Function?为什么需要定义 Sub 或 Function?定义 Sub 或 Function 的目的是什么?
我只问,因为这个:
Option Explicit
Sub OpenOrderReportExport()
Dim wsJL As Worksheet 'Jobs List
Dim wsPOT As Worksheet 'PO Tracking
Dim wsTNO As Worksheet 'Tel-Nexx OOR
Dim wbBK2 As Workbook 'New Workbook
Dim wsWS1 As Worksheet 'Sheet1
Dim wsWS2 As Worksheet 'Sheet2
Dim wsWS3 As Worksheet 'Sheet3
Set wsJL = Sheets("Jobs List") 'Jobs List
Set wsPOT = Sheets("PO Tracking") 'PO Tracking
Set wsTNO = Sheets("Tel-Nexx OOR") 'Tel-Nexx OOR
Set wbBK2 = Workbook("Book2") 'New Workbook
Set wsWS1 = Sheets("Sheet1") 'Sheet1
Set wsWS2 = Sheets("Sheet2") 'Sheet2
Set wsWS3 = Sheets("Sheet3") 'Sheet3
Application.ScreenUpdating = False ' Prevents screen refreshing.
CurrentFile = ThisWorkbook.FullName
NewFileType = "Excel Files 2007 (*.xlsx)"
NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log - " & Format(Date, "dd-mm-yyyy") & ".txt", fileFilter:=NewFileType)
End Sub
为什么需要定义这个 sub?我把它作为一个标准模块,并努力设置它,一旦按下按钮,我就可以将几页移到一个新的工作簿,删除空白的,然后从那里开始保存功能你告诉它在哪里保存。
我还有很长的路要走,但我想测试保存功能,然后从那里开始,因为对我来说这将是最难的事情。
所以在没有解决我的整个难题的情况下,我想知道为什么需要定义这样的东西?以及它需要如何定义......如果有人能给出答案,将不胜感激。