Hsieh

我的看法樓主似乎是想讓工作表另存成XLS檔案
新增一自訂表單,表單中設置一個清單方塊及一個按鈕
表單模組程式

1. Private Sub CommandButton1_Click()
   
2. Dim MyDate As String
   
3. MyDate = ListBox1.Text
   
4. ActiveSheet.Copy
   
5. ActiveWorkbook.SaveAs "D:\" & ActiveSheet.[B2] & MyDate & ".xls"
   
6. End Sub
   
7. 
   
8. Private Sub UserForm_Initialize()
   
9. With ActiveSheet
   
10. For Each a In .Range(.[B3], .[B65536].End(xlUp))
    
11.    ListBox1.AddItem a.Text
    
12. Next
    
13. End With
    
14. End Sub

複製代碼

一般模組程式碼

1. Sub OpenForm() '快速鍵Ctrl+m
   
2. UserForm1.Show
   
3. End Sub

複製代碼

如附件 001.rar (12.96 KB)

下載次數: 18

2010-6-7 18:13

gca78000

回復 11# Hsieh


    謝謝大大指導附件我還無法下載
但依程式碼卻會出錯

gca78000

回復 12# gca78000


    MyDate = ListBox1.Text

Hsieh

回復 13# gca78000


    要點選LISTBOX1的日期後再按按鈕

victorl

回復 10# GBKEE


    感謝  GBKEE 版大指教， Object相關一直都是小弟我比較弱的塊，還希望  版大能不吝指正並提點，因為說實在的相關教材實在有限。