[工作薄关闭问题]请高手帮我看下,错在什么地方？

wuxingch

Dim wb As Workbook
    Dim myFileName As String, myPath As String, lr As Long, m As Long
     m = 1
    myPath = ThisWorkbook.Path & "\"
    myFileName ="2009考勤表.xls"
        If myFileName <> ThisWorkbook.Name Then
            Set wb = GetObject(myPath & myFileName)

            With wb.Sheets(ac)
               row2 = .Range("a65536").End(xlUp).Row
               
              '从考勤表中复制数据
             La = 3
             For lw = 5 To row2
                 Cells(La, 3) = Workbooks(wk).Sheets(ac).Cells(lw, 3)
               La = La + 1
            Next
                 End With
            wb.Close
        End If

      wb.Close　关闭　2009考勤表.xls　怎么关不掉？　请高人指点

[ 本帖最后由 wuxingch 于 2009-1-5 12:08 编辑 ]

wuxingch

麻烦给位了，平时研究比较少，谢谢大家帮忙啊。我等着

wuxingch

Workbooks("*.xls").Close

zhaogang1960

请参考:
Sub aaa()
    Dim wb As Workbook
    Dim myFileName As String, myPath As String, lr As Long, m As Long
    myPath = ThisWorkbook.Path & "\"
    myFileName = "2009考勤表.xls"
    Application.ScreenUpdating = False
    Set wb = GetObject(myPath & myFileName)
    With wb.Sheets("ac")
        row2 = .Range("a65536").End(xlUp).Row
        '从考勤表中复制数据
        La = 3
        For lw = 5 To row2
            Cells(La, 3) = .Cells(lw, 3)
            La = La + 1
        Next
    End With
    wb.Close False
    Application.ScreenUpdating = True
End Sub

wuxingch

谢谢楼上的，但是还是关不掉、
    wb.Close False　没起作用？

五彩缤纷

workbook.close

wuxingch

错误，还是不行

[ 本帖最后由 wuxingch 于 2009-1-5 11:36 编辑 ]

zhaogang1960

我这里可以关闭，请看附件：
wuxingch.rar (11.46 KB, 下载次数: 80)

2009-1-5 11:53 上传

点击文件名下载附件

wuxingch

请楼上的，帮我看下，程序到底错在哪里，运行你的程序可以了？但用在我的程序里还是不行？
程序如下：
Sub 计算工资Aa()

On Error Resume Next
Dim wk As String, ac As String
Dim la As Long

Application.EnableEvents = False
Application.ScreenUpdating = False

wk = "2009考勤表.xls"
If ActiveWorkbook.Name <> "2009工资报表.xls" Then Exit Sub

aa = ActiveSheet.Name '取当前工作表名
ab = RightB(aa, 4)     '工资  补贴
ac = Left(aa, Application.WorksheetFunction.Find("份", aa))  '取几月份

'清除原始记录
Row = ActiveSheet.UsedRange.Rows.Count
If Row > 2 Then Rows("3:" & Row).Delete

    Dim wb As Workbook
    Dim myFileName As String, myPath As String
    myPath = ThisWorkbook.Path & "\"
    myFileName = wk
       If myFileName <> ThisWorkbook.Name Then
            Set wb = GetObject(myPath & myFileName)


            With wb.Sheets(ac)
              
               row2 = .Range("a65536").End(xlUp).Row '求2009考勤表中"ac"月份最后一行

               
              '从考勤表中复制数据

             la = 3
             For lw = 5 To row2
                 Cells(la, 3) = Workbooks(wk).Sheets(ac).Cells(lw, 3)
                 Cells(la, 4) = Workbooks(wk).Sheets(ac).Cells(lw, 35)
                 Range("A" & la) = "=row()-2"                                                    '行号
                 Range("E" & la) = "=INDEX(定额单价!D:D,MATCH(C" & la & ",定额单价!C:C,0))"   '引入单价公式
                 Range("H" & la) = "=INDEX(定额单价!G:G,MATCH(C" & la & ",定额单价!C:C,0))"   '引入带班长公式
                 lb = Application.WorksheetFunction.CountIf(Workbooks(wk).Sheets(ac).Range("D" & lw & ":AH" & lw), "工伤")
                 If lb > 0 Then Range("J" & la) = "工伤" & lb & "天，按20元/天"
                 Range("K" & la) = lb
                 Range("I" & la) = "=ROUND((E" & la & "*D" & la & "+G" & la & "-F" & la & "+H" & la & "+K" & la & "*20),)"
                 la = la + 1
            Next
            
               End With
            wb.Close False
            
          End If
            

row1 = Range("C65536").End(xlUp).Row '求最后一行号

row1 = Range("C65536").End(xlUp).Row '求最后一行号

'单元格合并
Range("A" & row1 + 1 & ":D" & row1 + 1).Merge
Range("E" & row1 + 1 & ":H" & row1 + 1).Merge

Range("A" & row1 + 1) = "合 计："
Range("E" & row1 + 1) = "=DaXie(" & "I" & row1 + 1 & ")"
Range("I" & row1 + 1) = "=sum(I3:I" & row1 & ")"


'本示例将第一行移到窗口的最上面?

Workbooks("2009工资报表.xls").Sheets(aa).Activate
ActiveWindow.ScrollRow = 1

wx:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

[ 本帖最后由 wuxingch 于 2009-1-5 12:04 编辑 ]

wuxingch

自己顶下，请zhaogang1960 帮忙看下