missbb

回復 10# Hsieh

其實我想上傳RAR或ZIP檔問多一點, 但每次點選檔案後, 按"上傳"鍵都沒有反應, 是甚麼原因呢?

很苦惱:dizzy:

Hsieh

回復 11# missbb


   

下載 (769.92 KB)

2013-12-2 15:15

missbb

回復 9# c_c_lai

您好, 現在才有時間測試.  是可以另存新檔案, 但原有程式未能以值顯示, 全部是#VALUE ?

請問 Dim f$, fd$, fs$, ...當中f 是指定碼還是任何英文字也可代替?
另如SHEET :PASSWORD 　內的Ａ１２３ＰＡＳＳＷＯＲＤ　由第二ＲＯＷ起，　程式碼有沒有改變？（我試過將第１ＲＯＷ加上ＨＥＡＤＩＮＧ，　有點問題）

有勞大大。

另外我不知何解，　我始終不能上載檔案，　我的畫面與大大的顯示有不同。

c_c_lai

回復 13# missbb
我用圖表說明，妳便會明瞭了。
首先妳先新增一個工作表單，假設名稱為 "多張工作表另存活頁簿及抓住預設密碼"
或任一名稱、或者為 "Test"。
然後如附件圖表一樣，建立三個工作表單：PASSWORD、A123、B456。
接著再把 9# 的程式碼複製於 ThisWorkbook 內 (如圖示)。

下載 (66.42 KB)

2013-12-29 20:52

下載 (74.98 KB)

2013-12-29 20:53

c_c_lai

回復 13# missbb

下載 (81.88 KB)

2013-12-29 20:54

下載 (110.43 KB)

2013-12-29 20:54

妳可以從 HSIEH、GBKEE 兩位版大的程式碼中瞭解
它是如何執行的，況且我也在程式碼加上了註釋。

c_c_lai

回復 13# missbb
忘了說明， Ex() 所產生的 A123、B456 兩個檔名之 Extension Name 為 .xlsx；
Ex2() 所產生的 A123、B456 兩個檔名之 Extension Name 為 .xls。
此是為了要讓妳了解如何產生 .xlsx 或者 .xls，在語法上如何應用而已。
記得、主檔之 Extension Name 應儲存為 .xls (2003) 、或儲存為 .xlsm (2007、2010)。

missbb

回復 16# c_c_lai

您好, 我用了下述程序都獨立儲存A123, B456是沒有問題的.
但因為我在PASSWORD SHEET內加了些資料, 讓A123, B456以VLOOKUP取資料, 不知是否這原因, 新開的A123檔案及B456檔案內, VLOOKUP的資料都變成了結#VALUE. 有方法解決嗎?

  Sub Ex2()            '  Hsieh & GBKEE
    Dim f$, fd$, fs$, A As Range, Wb As Workbook
   
    Set Wb = ThisWorkbook             '  活頁簿 :程式碼所在的
    fd = Wb.Path & "\"                       '  存檔的路徑
    With Wb.Sheets("PASSWORD")
        For Each A In .Range(.[A2], .[A2].End(xlDown))
            '  A                                   : "A123" : Range/Range
            '  A                                   : "B456" : Range/Range
            '  Sheets("PASSWORD").[A1]             : "A123" : Variant/Object/Range
            '  Sheets("PASSWORD").[A1].End(xlDown) : "B456" : Variant/Object/Range
            f = CStr(A)
            fs = fd & f & ".xls"
            Wb.Sheets(f).Copy      '  指定是哪一個活頁簿的工作表要複製
            '  Sheets(f).Copy 執行過後，複製了一活頁簿，內有一名為 "A123" 之工作表單。
            '  ActiveWorkbook.Name           : "活頁簿1" : String
            '  ActiveWorkbook.Sheets(1).Name : "A123"    : Variant/String
            '  Sheets(f).Copy 執行過後，複製了一活頁簿，內有一名為 "B456" 之工作表單。
            '  ActiveWorkbook.Name           : "活頁簿2" : String
            '  ActiveWorkbook.Sheets(1).Name : "B456"    : Variant/String
            With ActiveWorkbook
                .ActiveSheet.UsedRange = .ActiveSheet.UsedRange.Value
                '  FileFormat:=xlExcel8   Excel 2003版本 56; xlExcel12  version 12, or 14, or 15 = Excel 2007, or 2010, or 2013.
                .SaveAs Filename:=fs, Password:=CStr(A.Offset(, 1)), WriteResPassword:="", FileFormat:=xlExcel8
                .Close 0       '  關閉 "D:\A123.xls" 活頁簿、"D:\B456.xls" 活頁簿。
            End With           '  正式結束 (關閉)。
        Next
    End With
End Sub

c_c_lai

回復 17# missbb
妳將你的檔案壓縮成  .zip (WinZip.exe) 、 或 .rar (WinRar.exe) 的檔案
使用 IE 上傳，否則難以知悉妳的問題。

missbb

回復 18# c_c_lai
好的, 明白上班試上傳, 因我家裡的電腦做不到.

麻煩您.

missbb

回復 19# missbb