- 帖子
- 14
- 主題
- 2
- 精華
- 0
- 積分
- 48
- 點名
- 0
- 作業系統
- WIN8
- 軟體版本
- office2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2019-2-25
- 最後登錄
- 2019-8-4
|
假若拿Sub Ex_newexce1()出來修改一下..
只是單純的複製貼上
Sub Ex_newexce2()
Dim AR As Variant, Rng(1 To 2) As Range, E As Range
With Workbooks("a").Sheets(1)
Set Rng(1) = .Range(“A1”, .Range(“A1”).End(xlDown)) ‘同excel.exe 可以成功
Set Rng(2) = Workbooks(“a”).Sheets(1).Range(“c1”) ‘A檔A欄copy A檔C欄
Rng(1).Copy Rng(2)
End With
End Sub
Sub Ex_newexce3()
Dim AR As Variant, Rng(1 To 2) As Range, E As Range
With Workbooks("a").Sheets(1)
Set Rng(1) = .Range(“A1”, .Range(“A1”).End(xlDown)) ‘不同excel.exe 會失敗
Set Rng(2) = Ap.Workbooks(“c”).Sheets(1).Range(“c1”) ‘‘A檔A欄copy C檔C欄
Rng(1).Copy Rng(2)
End With
End Sub
小弟還在思索著錯誤的原因.... |
|
發表於 2019-3-12 11:39
| 
