返回列表 上一主題 發帖

型態不符合

enoch

帖子
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]

Book1.zip (11.22 KB)

收藏 分享

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
3#
發表於 2011-7-12 22:22 | 只看該作者
可以了, 謝謝

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 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)
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題