標題: 同時執行兩個vba時同樣做copy貼上的動作如何避免貼上的異常 [打印本頁]

---

作者: flask    時間: 2011-7-21 12:42     標題: 同時執行兩個vba時同樣做copy貼上的動作如何避免貼上的異常

請問我同時執行兩個vba時,從不同網頁匯入資料處理完,將資料複製到各工作表,同樣做copy貼上的動作,
當兩個vba執行到同時做貼上時會有一個會出現異常,請問要如何避免貼上的異常的現像,謝謝..

---

作者: GBKEE    時間: 2011-7-21 12:57

回復 1# flask
這樣的模式 試試看    Sheet1.Range("D3:F3").Copy Sheet2.Range("C3")

---

作者: flask    時間: 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

---

作者: GBKEE    時間: 2011-7-21 16:11

本帖最後由 GBKEE 於 2011-7-21 16:16 編輯

回復 3# flask
試試看

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range
   
3.     With Sheets("sheet1")
   
4.         .UsedRange.Columns.AutoFit
   
5.         Set Rng(1) = .Columns("B:F")
   
6.     End With
   
7.     With Workbooks.Open(Filename:="c:\7月\" & stcode & "7月.xls")
   
8.             Set Rng(2) = .Sheets("庫存").Cells(1, 255).End(xlToLeft).Offset(, 1)
   
9.             Rng(1).Copy Rng(2)
   
10.             .Close SaveChanges:=True
    
11.     End With
    
12.     Rng(1).ClearContents
    
13. End Sub

複製代碼

---

作者: flask    時間: 2011-7-22 17:15

謝謝GBKEE大大,今天只改一個沒改的會異常,但狀況好多了,下星期再來試試.謝謝GBKEE大大

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)