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

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

2^#

發表於 2012-4-22 18:31 | 只看該作者

語法內容求解

本帖最後由 luke 於 2012-4-27 07:10 編輯

各位大大

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

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

   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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-4-22 19:55 | 只看該作者

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

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-4-22 22:27 | 只看該作者

回復 1# luke

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

複製代碼

學海無涯_不恥下問

luke

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

5^#

發表於 2012-4-22 22:56 | 只看該作者

回復 2# GBKEE

謝謝G大回覆

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

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

煩請先進大大指導

TEST14A.rar (59.77 KB)

luke

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

6^#

發表於 2012-4-22 23:20 | 只看該作者

回復 2# Hsieh

謝謝H大

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

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

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

   煩請先進大大指導

TEST14A-1.rar (58.38 KB)

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-4-22 23:25 | 只看該作者

回復 3# luke

要改那些字?

學海無涯_不恥下問

luke

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

8^#

發表於 2012-4-22 23:49 | 只看該作者

回復 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)

Hsieh