TGB老师,您好! 感谢你的帮助。我试了一下,可以运行。 还有个问题接着请教。 刚才说的是打开时的不同文件的sheets(1).cells,如果我想把另外一个本工作簿同目录下的文件a.xls中的sheets(1).cells(2,5)分别赋给 Me.Spreadsheet1.ActiveSheet.Cells(I+1, 4),又该怎么办呢? 我自己试了一下,这是我的代码 Private Sub CommandButton1_Click() Dim Files As Variant, Temp As String, Temp1 As String Dim mysheet As Object, I As Integer, J As Long, K As Long Dim Asc_num As Integer Dim Filenumber, irow1 As Integer Dim findx, irow As Long Dim xlapp As New Excel.Application Dim bk As Workbook On Error Resume Next Files = Application.GetOpenFilename("All Files(*.*),*.*,All Files(*.*),*.*", , , , True) '打开文件对话框读入多文件目录 If Not IsArray(Files) Then Exit Sub '没有选择文件则退出 For I = 1 To UBound(Files) Temp = FileDate(Files(I), 1) Temp1 = FileName(Files(I)) Spreadsheet1.Cells(I + 1, 3) = Temp Spreadsheet1.Cells(I + 1, 2) = Temp1 Set bk = xlapp.Workbooks.Open(ThisWorkbook.Path & "\a.xls") Me.Spreadsheet1.ActiveSheet.Cells(I + 1, 4) = bk.Sheets("Sum").Cells(2, 5) bk.Close False Next Set bk = Nothing xlapp.Quit Set xlapp = Nothing End Sub 红字是改的地方,结果运行Me.Spreadsheet1.ActiveSheet.Cells(I + 1, 4)什么也没有,不知道什么原因?希望您看一下!
[此贴子已经被作者于2007-5-12 16:19:58编辑过] |