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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-4-22 17:42 | 顯示全部帖子

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

各位大大

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

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

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

煩請先進大大指導

TEST14.rar (59.44 KB)

樓主熱帖

luke

中學生 Rank: 2

帖子: 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

TOP

luke

中學生 Rank: 2

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

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

3^#

發表於 2012-4-22 22:56 | 顯示全部帖子

回復 2# GBKEE

謝謝G大回覆

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

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

煩請先進大大指導

TEST14A.rar (59.77 KB)

TOP

luke

中學生 Rank: 2

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

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

4^#

發表於 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)

TOP

luke

中學生 Rank: 2

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

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

5^#

發表於 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)

TOP

luke

中學生 Rank: 2

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

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

6^#

發表於 2012-4-23 16:51 | 顯示全部帖子

回復 9# Hsieh

謝謝H大

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

請問如何修改程式?

煩請先進大大指導

TEST14BB.rar (192.24 KB)

TOP

luke

中學生 Rank: 2

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

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

7^#

發表於 2012-4-23 20:31 | 顯示全部帖子

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

回復 11# Hsieh

回覆H大

*.cbk是以ASCII儲存的文字檔, , 因此讀取時會變成亂碼,
此檔是由同名的*.csv檔, 經過重新編譯加密而成,

4#提供的程式僅未替換*.cbk檔案最後一列的密碼即sheet1表所對應的C欄值,
以下是VB語法想改成VBA
   installpass = Worksheets("Sheet1").Cells(i, 3).Value
   Open newcsv For Binary As #1
   flen = FileLen(newcsv)
   For j = 1 To 8
   Put #1, , PassWD(j - 1)
   Next
   Close #1

如何插入這個語法?

煩請先進大大指導

TOP

luke

中學生 Rank: 2

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

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

8^#

發表於 2012-4-23 22:45 | 顯示全部帖子

回復 13# Hsieh

謝謝H大

*.csv是原始資料不需作改名, 只需進行*.cbk最後一列數字替換改名.

改名後檔案內容和大小OK, 但*.cbk檔每個數字後面多了乙個"空白"
如第1張圖, 正確應為第2張圖應為位置計算錯誤.

請問如何修改原程式?

煩請先進大大指導

TEST14C.rar (56.77 KB)

TOP

luke

中學生 Rank: 2

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

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

9^#

發表於 2012-4-25 21:39 | 顯示全部帖子

本帖最後由 luke 於 2012-4-30 19:29 編輯

回復 15# Hsieh

當AA-1.cbk檔改名成00011112.cbk檔後(如"上次結果"資料夾),
於第8位數字後面多了兩個空白格(如ASCII碼小黑框),
研判是byte計算錯誤,

請問如何修改原始碼程式?
煩請先進大大指導

TEST14D.rar (324.37 KB)

TOP

luke

中學生 Rank: 2

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

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

10^#

發表於 2012-4-26 14:57 | 顯示全部帖子

本帖最後由 luke 於 2012-4-30 19:27 編輯

[attach]10686[/attach]回復 17# Hsieh

謝謝

TOP