GBKEE

回復 33# slip

1. 'With Sheets(2).[A65536].End(xlUp).Offset(1)
   
2.                'Sheets(2) 物件: 沒指明父層為作用中活頁簿,的第2個工作表物件
   
3.         '改成
   
4.         With ThisWorkbook.Sheets(2).[A65536].End(xlUp).Offset(1)
   
5.             'ThisWorkbook           物件: 代表目前執行巨集程式碼所在的活頁簿
   
6.           或   
   
7.         With Workbooks("Book8.xls").Sheets(2).[A65536].End(xlUp).Offset(1)
   
8.             'Workbooks("Book8.xls") 物件:指定名稱的活頁簿        

複製代碼

GBKEE

回復 35# slip T
執行多檔案時,該這樣的.

1. Sub GetDDE()
   
2.     Dim T As Date, Sh(1 To 2)
   
3.     T = Now  '取得現在時間
   
4.     Set Sh(1) = ThisWorkbook.Sheets(1)
   
5.     Set Sh(2) = ThisWorkbook.Sheets(2)
   
6.     If Not IsError(Sh(1).[B2]) Then Sh(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sh(1).[A2:G2].Value  '工作表1的資料DDE連結成功寫入工作表2
   
7.     Application.OnTime T + TimeValue("00:00:30"), "GetDDE"  '這是以2秒測試，間隔5分鐘改成TimeValue("00:05:00"),
   
8. End Sub

複製代碼

T檔案

1. Sub duplicate_Click()
   
2.     Dim nextRows As Single
   
3.     With ThisWorkbook.Sheets("Sheet1")
   
4.         nextRows = .Range("A" & Rows.Count).End(xlUp).Row + 1

複製代碼

GBKEE

回復 36# npapower
這主題就有

GBKEE

回復 39# slip
程式碼要了解一下是何錯誤  
***********      .為物件的屬性,方法   ********
   

1.   WITH sh(?)    '物件: 你沒有設立
   
2.              .Range("H1") = .Range("D1") - .Range("C1")                  'H欗的公式=>D欗-C欗
   
3.             .Range("I1") = .Range("H1") - .Range("H1").Offset(-1)       'I413=H413-H412......數列2
   
4.             .Range("J1") = .Range("E1")                                 'J欗的公式=E欗
   
5.              '
   
6.              '
   
7. End With

複製代碼

GBKEE

回復 42# slip

未修改前 使用區塊形式語法：有End If

1. If condition Then
   
2. [statements]
   
3. [ElseIf condition-n Then
   
4. [elseifstatements]...
   
5. [Else
   
6. [elsestatements]]
   
7. End If

複製代碼

1.   If Not IsError(Sheets(1).[B2]) Then  '
   
2.   '
   
3. '
   
4. End If

複製代碼

修改後 if 語法為

1. If condition Then [statements][Else elsestatements

複製代碼

不用有 End If

1. If Not IsError(Sh(1).[B2]) Then Sh(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sh(1).[A2:G2].Value  '工作表1的資料DDE連結成功寫入工作表2
   
2. '
   
3. '
   
4. '最後的 End If  要刪掉

複製代碼

GBKEE

回復 44# slip
c_c_lai  幫你解決了錯誤,你知道是那裡出錯嗎?