[發問] 如何建立指定資料夾和檔案拷貝改名

luke

各位大大

sheet1表B欄資料為文字檔(*.csv 和cbk)的檔案主名字, C欄是欲拷貝和更名的名稱, E欄是欲建立的資料夾名字

如何將B欄資料所對應的P01資料夾同名文字檔(*.csv 和cbk)進行拷貝並改名成C欄所對應的名稱

再行至E欄名字去建立新的資料夾,
然後依照E欄所對應資料去見立子資料夾和移轉改名後的檔案

煩請先進 大大指導
TEST14.rar (59.44 KB)

下載次數: 5

2012-4-22 17:42

luke

各位大大

小弟碰到了下列語法, 但不清楚描述內容

煩請先進  大大指導解答意思

       Ipass = Worksheets("PASS").Cells(1, 3).Value
       Open Nplc For Binary As #1
       Seek #1, startpos
       For j = 1 To 8
        Put #1, , PassWD(j - 1)
       Next

GBKEE

回復 1# luke
建議你 先看看  VBA中   Open 陳述式 的說明

Hsieh

回復 1# luke

1. Sub nn()
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. fd = ThisWorkbook.Path & "\"
   
4. For Each a In Range("E2:E5")
   
5. fn = fd & a & "\"
   
6. fs = fn & a.Offset(, -2) & "\"
   
7.    If fso.FolderExists(fn) = False Then MkDir fn
   
8.    If fso.FolderExists(fs) = False Then MkDir fs
   
9.    fso.copyfile fd & "P01\" & a.Offset(, -3) & ".csv", fn & a.Offset(, -2) & ".csv", True
   
10.    fso.copyfile fd & "P01\" & a.Offset(, -3) & ".cbk", fn & a.Offset(, -2) & ".cbk", True
    
11. Next
    
12. End Su

複製代碼

luke

回復 2# GBKEE


謝謝G大回覆

這個語法是將文字檔打開後
移動至文字檔最後一列
會顯示8個數字

利用指定的儲存格(內有8個數字)做替換
即sheet1表C欄的數字(見粉紅色說明)

煩請先進 大大指導
TEST14A.rar (59.77 KB)

下載次數: 7

2012-4-22 22:55

luke

回復 2# Hsieh


    謝謝H大

    假如P01資料夾所有的*.cbk檔做了一些改變, 這些文字檔於轉成*.cbk後
    還要打開該文字檔, 將該檔最後一列的8位數字改成C欄所示名稱.

    例如: AA-1.bak改名為00011112.cbk文字檔後,
              必須先打開00011112..cbk至最後一列
              將它們的數字如00000000改成00011112後
               再行儲存檔案.

     請問如何修改這些文字檔?

     煩請先進 大大指導
      TEST14A-1.rar (58.38 KB)

下載次數: 3

2012-4-22 23:20

Hsieh

回復 3# luke

要改那些字?
   

下載 (56.27 KB)

2012-4-22 23:24

luke

回復 4# Hsieh

AA-1.cbk, BB-1cbk, CC-1.cbk和DD-1.cbk等
文字檔的最後一列(約第943列)
顯示數字為00000000共8個數字(如圖片標示處)
要改成對應sheet1表C欄數字
AA-1cbk-->00011112.cbk
BB-1.cbk-->00333333.cbk
.....

煩請先進 大大指導
TEST14AA.rar (67.86 KB)

下載次數: 4

2012-4-22 23:49

Hsieh

回復 5# luke

1. Sub nn()
   
2. Dim A As Range
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. fd = ThisWorkbook.Path & "\"
   
5. For Each A In Range("E2:E5")
   
6. fn = fd & A & "\"
   
7. fs = fn & A.Offset(, -2) & "\"
   
8.    If fso.FolderExists(fn) = False Then MkDir fn
   
9.    If fso.FolderExists(fs) = False Then MkDir fs
   
10.    Open fd & "P01\" & A.Offset(, -3) & ".cbk" For Input As #1
    
11.    Open fn & A.Offset(, -2) & ".csv" For Output As #2
    
12.    Open fn & A.Offset(, -2) & ".cbk" For Output As #3
    
13.    Do Until EOF(1)
    
14.    Line Input #1, mystr
    
15.    If EOF(1) = True Then '更改最後一行資料
    
16.       mystr = A.Offset(, -2)
    
17.    End If
    
18.    Print #2, mystr
    
19.    Print #3, mystr
    
20.    Loop
    
21.    Close #1
    
22.    Close #2
    
23.    Close #3
    
24. Next
    
25. End Sub

複製代碼

luke

回復 9# Hsieh

謝謝H大

原P01資料夾所有的*.cbk檔更換成想要的檔案(約51KB-58KB)大小,,進行修改最後一列8位數字成C欄並改名後, 檔案只剩1KB,與原檔案大小相差很多, 出了轉檔問題。

請問如何修改程式?

煩請先進 大大指導
TEST14BB.rar (192.24 KB)

下載次數: 3

2012-4-23 16:48