同時執行兩個vba時同樣做copy貼上的動作如何避免貼上的異常
- 帖子
- 40
- 主題
- 10
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2011-6-3
- 最後登錄
- 2020-10-1
|
同時執行兩個vba時同樣做copy貼上的動作如何避免貼上的異常
請問我同時執行兩個vba時,從不同網頁匯入資料處理完,將資料複製到各工作表,同樣做copy貼上的動作,
當兩個vba執行到同時做貼上時會有一個會出現異常,請問要如何避免貼上的異常的現像,謝謝.. |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-7-21 12:57
| 只看該作者
回復 1# flask
這樣的模式 試試看 Sheet1.Range("D3:F3").Copy Sheet2.Range("C3") |
|
|
|
|
|
|
|
- 帖子
- 40
- 主題
- 10
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2011-6-3
- 最後登錄
- 2020-10-1
|
3#
發表於 2011-7-21 15:43
| 只看該作者
謝謝GBKEE大大,我的程序碼是這樣那要如何改呢?
Sheets("sheet1").UsedRange.Columns.AutoFit
Columns("B:F").Copy
Workbooks.Open Filename:= _
"c:\7月\" & stcode & "7月.xls"
Sheets("庫存").Select
ActiveWorkbook.Sheets("庫存").Cells(, Cells(2, 255).End(xlToLeft).SpecialCells(12).Column + 1).Select
ActiveSheet.Paste
Workbooks(stcode & "7月.xls").Close SaveChanges:=True
Columns("B:F").ClearContents |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
4#
發表於 2011-7-21 16:11
| 只看該作者
本帖最後由 GBKEE 於 2011-7-21 16:16 編輯
回復 3# flask
試試看- Sub Ex()
- Dim Rng(1 To 2) As Range
- With Sheets("sheet1")
- .UsedRange.Columns.AutoFit
- Set Rng(1) = .Columns("B:F")
- End With
- With Workbooks.Open(Filename:="c:\7月\" & stcode & "7月.xls")
- Set Rng(2) = .Sheets("庫存").Cells(1, 255).End(xlToLeft).Offset(, 1)
- Rng(1).Copy Rng(2)
- .Close SaveChanges:=True
- End With
- Rng(1).ClearContents
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 40
- 主題
- 10
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2011-6-3
- 最後登錄
- 2020-10-1
|
5#
發表於 2011-7-22 17:15
| 只看該作者
|
謝謝GBKEE大大,今天只改一個沒改的會異常,但狀況好多了,下星期再來試試.謝謝GBKEE大大 |
|
|
|
|
|
|
|
