兩個"獨立"運作的Excel活頁薄如何用DDE互傳資訊??
- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
回復 3# GBKEE
GBKEE大大，你好！
按您的程序
自己練習
Private Sub CommandButton4_Click()
Set wb = ThisWorkbook
Application.Visible = True
APP.Visible = True
APP.Workbooks.Open ThisWorkbook.Path & "\B.xls"
APP.Workbooks("\B.xls").Sheets(1).Cells.Copy wb.Sheets(1).Cells '偵錯到此列
'Set APP = Nothing
Application.Visible = False
End Sub
1.如何可將Workbooks("\B.xls").Sheets(1).Cells 整個copy 到 wb.Sheets(1).
可用 CopyAs ?
2.APP.Workbooks("\B.xls").Sheets(1)可寫入嗎?
敬請指導 |
|
|
|
|
|
|
|
- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
回復 6# yangjie
自己 Try 很久 終於可 cells.copy
功力差，所以很長
Private Sub CommandButton4_Click()
Set wb = ThisWorkbook
wb.Activate
Application.Visible = True
APP.Visible = True
Application.DisplayAlerts = False
Set wb1 = APP.Workbooks.Open(ThisWorkbook.Path & "\B.xls", True, False)
wb1.Activate
APP.Workbooks(1).Sheets(1).Activate
APP.Cells.Copy
wb.Activate
Windows("A.xls").Activate
Sheets(1).Cells.ClearContents
Cells(1, 1).Select
ActiveSheet.Paste
APP.CutCopyMode = False
Application.CutCopyMode = False
wb.Save
APP.Quit
Sheets(1).Cells(1, 1).Activate
Application.DisplayAlerts = True
Application.Visible = False
End Sub
若要copy 多頁 就累了 |
|
|
|
|
|
|
|
- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
回復 10# GBKEE
漂亮
萬分感激 GBKEE版大 |
|
|
|
|
|
|
|
發表於 2014-7-8 10:05
| 
