- 帖子
- 176
- 主題
- 98
- 精華
- 0
- 積分
- 279
- 點名
- 0
- 作業系統
- window 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-2-17
- 最後登錄
- 2020-4-8
|
型態不符合
本帖最後由 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] |
-
-
Book1.zip
(11.22 KB)
|
發表於 2011-7-12 21:01
| 
發表於 2011-7-12 21:15
| 
