bqwangs

版大
我是程式大外行
1.上述的程式 是放到工作表1的VB裡
還是放到Module1嗎??
2.Application.OnTime Time + #12:00:01 AM#, "工作表1.Ex"
'程式在物件模組 OnTim 要指明 模組名稱
是要改成??
Application.OnTime Time + #12:00:01 AM#, "Module1.Ex"
3.我將程式放到工作表1的VB裡
還是要去 按巨集 再按執行
要如何變成一開檔案 就馬上會執行

=============
This Workbook裡
Private Sub Workbook_Open()
Ex
        End Sub
=============
Module1裡放程式
Sub Ex()
    Dim Ar As Variant, E As Range, i As Integer
    'd:\  請修改為正確路徑
    With GetObject("d:\tttt.csv").Sheets(1)
        Ar = Split(Trim(.[a1]), Space(2))
        .Parent.Close 0
    End With
    i = 0
    For Each E In ActiveSheet.[A1,A2,B5,E5,C5]
        E = Ar(i)
        i = i + 1
    Next
    Application.OnTime Time + #12:00:01 AM#, "工作表1.Ex"
    '程式在物件模組 OnTim 要指明 模組名稱
=====================
錯誤訊息

下載 (15.21 KB)

2014-1-9 14:14

GBKEE

回復 21# bqwangs

1. Application.OnTime Time + #12:00:01 AM#, "工作表1.Ex"
   
2. 15.    '程式在物件模組 OnTim 要指明 模組名稱 (工作表1 是物件模組)

複製代碼

1. 'This Workbook是 (物件模組)
   
2. Private Sub Workbook_Open()
   
3. Ex
   
4.         End Sub
   
5. =============
   
6. 'Module1裡放程式(Module1是一般模組)
   
7. Sub Ex()   
   
8.     Dim Ar As Variant, E As Range, i As Integer
   
9.     'd:\  請修改為正確路徑
   
10.     With GetObject("d:\tttt.csv").Sheets(1)
    
11.         Ar = Split(Trim(.[a1]), Space(2))
    
12.         .Parent.Close 0
    
13.     End With
    
14.     i = 0
    
15.     For Each E In ActiveSheet.[A1,A2,B5,E5,C5]
    
16.         E = Ar(i)
    
17.         i = i + 1
    
18.     Next
    
19.     Application.OnTime Time + #12:00:01 AM#, "Ex"
    
20.     '程式在物件模組 OnTim 要指明 模組名稱,(Module1是一般模組 OnTim可以不指明 模組名稱)

複製代碼