? 發問時間: 電腦與網際網路程式設計 · 1 0 年前

如何用VB執行檔案後自動複製檔案到別的資料夾

請問VB高手們

我想寫一個VB程式~~

例如 C:\Documents and Settings\桌面\123.xls

打開123的excel 檔案後 自動複製檔案新增到 D:\test

請問要怎麼寫???

另外要注意的是 123檔案的原始檔案路徑可能不一定是C:\Documents and Settings\桌面\123.xls ,會有所變動

VB可以寫出執行後自動複製本檔案到指定路徑嗎??

已更新項目:

你的方法簡單又快

檔名如果是123 就可以複製了

但是換成中文或英文 就會出現"應用程式或物件定義上的錯誤"

何解呢??

2 個已更新項目:

另外我嘗試用

SourceFile = ("C:\Documents and Settings\elvan\桌面\VB_測試用.xls")

Set fs = CreateObject("Scripting.FileSystemObject")

fs.copyfile SourceFile, "C:\", True

可以複製

但是我不會把SourceFile 改成通用路徑

該怎麼改呢??

是不是可以App.Path ?? 但是我寫不出來..

2 個解答

評分
  • 匿名使用者
    1 0 年前
    最佳解答

    以下程序放在 ThisWorkbook 程式區下即可 :Private Sub Workbook_Open()

    Me.SaveCopyAs "D:\TEST\" & Me.Name

    End Sub先試試, 有疑問請提出討論 ~

    圖片參考:http://www.hot-hit-counter.com/counter?id=E286E328...

    2010-07-26 10:10:31 補充:

    SourceFile 應該就是 : Thisworkbook.fullname

    試試看 ~

    2010-07-26 14:23:03 補充:

    參考 :

    Private Sub Workbook_Open()

    ThisWorkbook.ChangeFileAccess xlReadOnly

    FileCopy ThisWorkbook.FullName, "D:\TEST\" & "VB_測試用.xls"

    ThisWorkbook.ChangeFileAccess xlReadWrite

    End Sub

    2010-07-26 14:25:10 補充:

    "會影響User 的開檔速度"

    能慢多少呢 ?

    另, 不是所有人都是學資訊的 ...

    2010-07-26 14:33:20 補充:

    英中文檔名存檔,

    在我的電腦不會發生問題 ~

    2010-07-26 14:45:13 補充:

    有需要的話, 程式碼加個判斷

    使其可以在在備份資料夾下正常開啟

    Private Sub Workbook_Open()

    if me.path <> "D:\\TEST" then

    Me.SaveCopyAs "D:\\TEST\\" & Me.Name

    end if

    End Sub

    2010-07-26 23:00:46 補充:

    "檔案愈大,就愈慢~有些人的Excel File 大到十M"

    如此應該如何開都慢 ...

    "至少我認識的就有10來位"

    佔貴朋友幾趴, 只怕不到1%吧 !?

    ^ ^

    而用 excel 有多少人 ? 不能指望都有資訊想法 ~

    如我就是學理工的, 我喜歡 EXCEL 的計算方便更多些 ~

    2010-07-27 00:48:25 補充:

    理工出身有啥好神氣 ?_?

    意思是我也不懂太多"資訊用語"

    討論時建議多些理性 ~

    ".NET 下,使用 File monitoring 的技術"

    這句話我就不是很瞭 ...

    都出社會十多年了

    "井外" 的世界也看了不少了 ~

    公司要 "活下去" 這是最基本的

    如呆過小公司 就瞭解其悲哀 ~

    2010-07-27 00:57:57 補充:

    很多人愛用 EXCEL, 不只是因為 "被脅迫"

    往往是覺得有趣 才會深入

    無興趣的人 只是做做報告

    不會往 巨集, 深入的公式, 或各類操作 的路走下去的 ~

    有時壓力下 還是實際些的好

    既然它提供了可走的路

    那就是它了 ~

    2010-07-27 09:07:41 補充:

    驕傲 ??

    我喜歡各類知識 也喜歡發問

    從不覺得理工背景驕傲在哪裡 ?

    (我的發問紀錄很清楚)

    不就愛算數嗎 ?

    EXCEL 不就好算嗎 ?

    再加上便利的操作介面 不是嗎 ??

    (還有一個重點 系統往往不夠用)

    而相對於 microsoft 而言

    公司的吸血鬼 往往是那些笨重而用處不大的系統

    改又改不了 換又是一筆大錢 每年還得繳龐大費用 ~

  • 1 0 年前

    呼叫 automation 不是好方法, 會影響User 的開檔速度

    如果在.NET 下,使用 File monitoring 的技術

    會比較理想

    2010-07-26 22:34:11 補充:

    檔案愈大,就愈慢~有些人的Excel File 大到十M,

    不是所有人都是學資訊???

    有很多從事軟體資訊設計的都不是學資訊出身的

    至少我認識的就有10來位

    2010-07-27 00:22:50 補充:

    所以再加上開檔時SaveAs 不就更慢

    以從事資訊工作部份而言非相關,有將近1/3

    有的跟理工差了大萬八千里,護校畢業的都有

    有會計系的有修車的有經濟系的企管的...

    用Excel有多少人,你看Microsoft 威脅的公司就知道

    在井外的世界,很多你認為的行政會計業務

    可是用Excel用的嚇嚇叫,巨集是不太有人會,但公式什麼樞紐分析的用的嚇嚇叫

    耜不得花錢買系統,用Excel來管理的公司多的是

    當你看到一家公司用Excel來作RMA甚至是PC的管理,不得不配服他們

    為了省錢可以作到如此田地

    2010-07-27 00:23:39 補充:

    別以為理工出身就可以多神氣,雖然我也是

    那些所謂非本科系的表現並不會比較差

    而且站在我們頭上的通常也不是理工出身

    2010-07-27 02:27:34 補充:

    理工出身有啥好神氣 跟 資訊用語 有什麼關連

    一大把年紀了,有什麼好不理性!

    你的用字之間透露著身為理工背景的驕傲

    提醒你管我們的大多都不是理工背景

    .NET FileSystemWatcher class

    監測檔案活動,配合VSS copy檔案,如果有snapshot 技術更好

    十年能看過多少井外世界呢?

    已經都出道20多年,我仍時常對井外世界充滿驚奇.

    小公司我也呆過~老闆拚命喊窮,但後來換名車,買豪宅的不在少數

    悲哀的是員工..以為幫公司省錢..只是加速老闆換玩具換女伴的速度

    2010-07-27 02:38:50 補充:

    接觸過的公司應該有500吧不知有沒有一千..

    用Excel 是多重的困素,因為只會Excel ,因為之前的人歐Excel ,因為客戶還是廠商用 Excel ,不能稱上被脅迫,環境如此~

    你為你的 Office 買了合法授權嗎?

    因為如此每年看著眾多公司,被Microsoft 逼著買不需要的版本

    只因為你要合法使用以前的版本,只有買授權一路,用2003版本的公司還真是多

    明明授權版本特別貴

    投資 Excel 別忘了付錢給MS...平常也要多存錢,每隔個幾年又得為了換版花大錢

    實際一點,如果我可以決定~寧可把授權費換成calc 的教育費~~

    2010-07-28 00:27:10 補充:

    發問紀錄??? 沒事看你的作什麼!

    那光芒就是來自於算數囉

    calc不能算嗎?

    笨重而用處不大的系統,表示當初買的人決策錯誤

    MS的吸血可怕,並非你付錢就可以了事! 至少其他外商都是付錢了事

    你必需依他的遊戲走...錢都花在養蚊子的軟體上.

    笨重而用處不大的系統,至少還有在用

還有問題?馬上發問,尋求解答。