Board logo

標題: 型態不符合 [打印本頁]
作者: enoch    時間: 2011-7-12 21:01     標題: 型態不符合

本帖最後由 enoch 於 2011-7-12 21:05 編輯

在程式中去到此行出現型態不符合
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
代表何意思, 請問應如何修改
多多指教

Sub export()
Dim cc As Object
Sheets("export").Select
ChDir "C:\
Range("A2").Select
Set cc = ActiveCell
Do Until IsEmpty(cc.Value)
sheetn = cc.Offset(0, 1)
If cc <> cc.Offset(-1, 0) Then
Sheets(sheetn).Copy
ActiveWorkbook.SaveAs cc
ThisWorkbook.Activate
Else
'
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
End If
Set cc = cc.Offset(1, 0)
Loop
End Sub

[attach]6986[/attach]
作者: kimbal    時間: 2011-7-12 21:15

在程式中去到此行出現型態不符合
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
代表何意思, 請問 ...
enoch 發表於 2011-7-12 21:01


試試把
Sheets(sheetn).Copy after:=Workbooks(cc).Sheets(1)
改為
Sheets(sheetn).Copy after:=Workbooks(cc.Value).Sheets(1)
作者: enoch    時間: 2011-7-12 22:22

可以了, 謝謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)