首页
/
每日頭條
/
職場
/
vba如何在指定文件夾下創建文件
vba如何在指定文件夾下創建文件
更新时间:2025-03-12 18:40:34

辦公工作當中,會制作很多表格,文本文件,時間長了,會越來越多,從而找不到想要的文件,這是一個很困擾的事情。

本文介紹一個文件管理器應用示例,總體功能可以實現收集文件、整理、修改、查看、删除等等操作。

vba如何在指定文件夾下創建文件(3天制作出一個文件管理器)1

通過不同類目,可以分類将自己的文件保存起來,使用的時候,一目了然地找到,也不用在電腦硬盤裡查找。

操作界面如下圖所示:

vba如何在指定文件夾下創建文件(3天制作出一個文件管理器)2

頂部是地址欄,文件分類按鈕,分别代碼不同類型文件夾。

左側為文件列表,右側可以以不同方式顯示文件,此處不足之處是,未實現文件圖标顯示。

最右側為功能按鈕列表,可以實現對所選文件的一系列相關操作。

添加文件:

vba如何在指定文件夾下創建文件(3天制作出一個文件管理器)3

實際上,本示例和操作系統中的文件管理器有相似之處,所以,使用起來也簡單。

上述應用可以将自己的文件以不同目錄進行保存,使用的時候在相應目錄下進行查找即可。

vba如何在指定文件夾下創建文件(3天制作出一個文件管理器)4

代碼

由于,隻有一個窗體設計,所以代碼也集成到一個模塊當中,另外,增加了一個類模塊,裡面編寫了一些功能事件代碼,是所有功能的代碼總彙。

其中,應用最多的是創建FileSystemObject 對象。

這個對象可以對電腦中的文件進行操作。

複制文件:

Public Sub copyfiles() '複制文件 On Error Resume Next Dim fArr, fi As Integer fArr = GetHotFiles If fArr(0) = "" Then Exit Sub Dim fobj As Object Set fobj = CreateObject("Scripting.FileSystemObject") Dim SourUrl As String 'dim Destination As String '複制到文件夾 SourUrl = VBA.Trim(xUrlObj.Value) If VBA.Len(SourUrl) = 0 Then Exit Sub 複制到文件夾.Show If Dir(Destination, vbDirectory) = "" Then Exit Sub For fi = LBound(fArr) To UBound(fArr) If Dir(SourUrl & "\" & fArr(fi), vbNormal) <> "" Then fobj.Copyfile SourUrl & "\" & fArr(fi), Destination End If Next fi Set fobj = Nothing MsgBox "文件複制成功!", vbInformation, "提示" End Sub

創建文件對象代碼:

Set fobj = CreateObject("Scripting.FileSystemObject")

FileSystemObject對象方法

方法

說明

BuildPath

将名稱附加到現有路徑。

CopyFile

将一個或多個文件從一個位置複制到另一個位置。

CopyFolder

将一個或多個文件夾從一個位置複制到另一個位置。

CreateFolder

創建新文件夾。

CreateTextFile

創建文本文件并返回可用于從文件讀取或寫入文件的 TextStream 對象。

DeleteFile

删除一個或多個指定的文件。

DeleteFolder

删除一個或多個指定的文件夾。

DriveExists

檢查指定的驅動器是否存在。

FileExists

檢查指定的文件是否存在。

FolderExists

檢查指定的文件夾是否存在。

GetAbsolutePathName

返回指定路徑的驅動器根目錄的完整路徑。

GetBaseName

返回指定文件或文件夾的基名稱。

GetDrive

返回對應于指定路徑中的驅動器的 Drive 對象。

GetDriveName

返回指定路徑的驅動器名稱。

GetExtensionName

返回指定路徑中最後一個組件的文件擴展名。

GetFile

返回指定路徑的 File 對象。

GetFileName

返回指定路徑中最後一個組件的文件名或文件夾名。

GetFolder

返回指定路徑的 Folder 對象。

GetParentFolderName

返回指定路徑中最後一個組件的父文件夾的名稱。

GetSpecialFolder

返回某些 Windows 特殊文件夾的路徑。

GetTempName

返回随機生成的臨時文件或文件夾。

Move

将指定文件或文件夾從一個位置移動到另一個位置。

MoveFile

将一個或多個文件從一個位置移動到另一個位置。

MoveFolder

将一個或多個文件夾從一個位置移動到另一個位置。

OpenAsTextStream

打開指定文件并返回可用于從該文件讀取、寫入該文件或追加到該文件的 TextStream 對象。

OpenTextFile

打開文件并返回可用于訪問該文件的 TextStream 對象。

WriteLine

将指定字符串和換行符寫入 TextStream 文件。

具體使用方法,以後會有所介紹,先收藏備用。

歡迎關注、收藏

---END---

,
Comments
Welcome to tft每日頭條 comments! Please keep conversations courteous and on-topic. To fosterproductive and respectful conversations, you may see comments from our Community Managers.
Sign up to post
Sort by
Show More Comments
推荐阅读
商務部十四五規劃解讀
商務部十四五規劃解讀
商務部十四五規劃解讀?來源:人民網人民網北京7月14日電(趙竹青)商務部日前印發了《“十四五”商務發展規劃》(以下簡稱《規劃》)商務部綜合司負責人對此進行解讀時表示,《規劃》明确了35項重點工作,包括自貿試驗區、自由貿易港、國際消費中心城市...
2025-03-12
生涯規劃教育成果評估
生涯規劃教育成果評估
生涯規劃教育成果評估?來源:【嘉興日報-嘉興在線】試職場牛刀,向未來邁步昨天下午,嘉興一中生涯規劃教育實踐活動——職業體驗報告會舉行,我來為大家講解一下關于生涯規劃教育成果評估?跟着小編一起來看一看吧!生涯規劃教育成果評估來源:【嘉興日報-...
2025-03-12
996是誰提出來的
996是誰提出來的
996是誰提出來的?996是由一家公司提出來的996工作制是一種違反《中華人民共和國勞動法》的延長法定工作時間的工作制度,指的是早上9點上班、晚上9點下班,中午和傍晚休息1小時(或不到),總計工作10小時以上,并且一周工作6天的工作制度,代...
2025-03-12
衡陽縣禁毒工作約談會
衡陽縣禁毒工作約談會
談話時間:2021年5月14日下午16:00談話地點:長沙市望城區禁毒辦約談人:望城區禁毒辦主任周建波望城區禁毒辦副主任黃金輝被約談人:望城區茶亭鎮禁毒工作負責人潘勝程望城區茶亭鎮禁毒社工莫柔豔記錄人:望城區禁毒辦科員李木蘭談話内容:周建波...
2025-03-12
申請參加房地産經紀人職業資格考試的條件
申請參加房地産經紀人職業資格考試的條件
申請參加房地産經紀人職業資格考試的條件?按照《房地産經紀人員執業資格制度暫行規定》,凡中華人民共和國公民,遵守國家法律、法規,已取得房地産經紀人協理資格并具備以下條件之一者,可以申請參加房地産經紀人執業資格考試:,現在小編就來說說關于申請參...
2025-03-12
Copyright 2023-2025 - www.tftnews.com All Rights Reserved