Application Dim wb As Workbook Dim ws As Worksheet Debug. Sub sample2 Dim i As Long Dim strDir As String Dim strFile As String Dim xls As New Excel. Sub sample1 Dim i As Long Dim strDir As String Dim strFile As String Debug. Application Dim wb As Workbook Debug.。 。 。 。 。
Next。 。 。 。 。 。
Next