返回列表下一主題上一主題發帖

型態不符合

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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]