【VB语法备忘】操作文件

最新推荐文章于 2021-10-27 16:48:31 发布

pzxzhy

最新推荐文章于 2021-10-27 16:48:31 发布

阅读量1k

点赞数

文章标签： VB 文件夹和文件

本文链接：https://blog.csdn.net/pzxzhy/article/details/79205883

版权

这篇博客详细介绍了使用VB进行文件操作的方法，包括获取文件路径、文件名，以及如何打开、另存和关闭文件，特别是利用Dir函数遍历文件夹获取所有文件名的技巧。

摘要由CSDN通过智能技术生成

1.返回文件路径

    Dim MyPath$
    MyPath = ThisWorkbook.Path

类型：字符串
值：文件所在文件夹的完整路径
格式："C:\...\...\Folder"
注意：字符串的结尾没有 "\"

2.返回文件名称

    Dim MyName$
    MyName = Dir(MyPath & "\*.*")

类型：字符串
值：文件名称
格式："ABC.XLS"
注意1：包含文件扩展名（如果只取文件名，可用split截取），但不包含文件路径。

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

pzxzhy

关注关注

0
点赞
踩
3

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

VB 2010 （23）My关键字

复行数十步

04-09

416

1.My.Application My.Application名称空间中的属性和方法 2.My.computer My.Computer名称空间的具体对象 https://docs.microsoft.com/zh-cn/dotnet/visual-basic/language-reference/objects/my-computer-object 3.My.Forms ...

c++读文件，造数据

qq_37548017的博客

10-10

619

读文件 freopen("3.in","r",stdin); //读入，在你的代码的文件夹里需要有这个东西 3.in freopen("3.out","w",stdout);//输出，输出怎样的格式看你自己，也可3.txt，如果你的文件夹有这个3.out直接读到里面，如果没有它给你创一个造数据 #include <bits/stdc++.h> using namespace std; char str[100]; int main(){ std::ios::sync_with_

参与评论您还未登录，请先登录后发表或查看评论

合并当前目录下所有工作簿的全部工作表

感谢关注-最近在编写开源的自动化测试框架还没整理完

02-09

3万+

合并当前目录下所有工作簿的全部工作表以2003Excel版本为例： 1.在当前目录下新建一个空的Excel：如2017-1-2 2.打开2017-1-2Excel文件，alt+F11 进入VB代码编辑器 3.例：将以下代码粘贴到编辑器thisworkbook中 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPat

VBA-如何用代码打开工作簿

oyq的博客

05-21

2万+

1.代码很简单，只要把文件路径写清楚就好了Option ExplicitSub 打开工作表()Dim wb As WorkbookSet wb = Workbooks.Open("C:/Users/oyq/Desktop/作业/工作簿1.xlsx")End Sub2.其他的工作簿操作Sub 其他作业()Dim w As Workbook'新建工作表 Set w = Workbooks.Add ...

如何快速把多个excel表合并成一个excel表

luckypeng的专栏

11-06

2万+

我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：用microsoft excel打开新

VB工作备忘录设计与实现(源代码+系统).zip

热门推荐

鞠勇鸿的技术专栏

11-07

6万+

打开一个工作簿。语法表达式 . Open( FileName , UpdateLinks , ReadOnly , Format , Password , WriteResPassword , IgnoreReadOnlyRecommended , Origin , Delimiter , Editable , Notify , Converter , AddToMru , Local ,...

open用法 vba_Excel VBA解读（85）：用VBA代码打开工作簿 — Open方法

weixin_35792468的博客

02-19

1805

要操作工作簿，要使用工作表分析和处理数据，都需要先打开工作簿。在实际操作中，打开工作簿是再平常不过的操作了。双击桌面上的Excel快捷方式图表，或者点击桌面左下角开始菜单，找到Excel程序，单击即可打开工作簿。在VBA中，我们可以使用Workbooks对象的Open方法打开工作簿，其语法为：Workbooks对象.Open(FileName,[UpdateLinks],[ReadOnly],[F...

【原创】VBA（实验8）创建新工作簿和写入内容，创建多个sheet

奔跑的犀牛先生

04-11

6655

参考参照以下文章学习练习 https://blog.csdn.net/qq_41816368/article/details/80957796 一创建一个新工作簿，并写点东西进去 Sub create_new_wb() Dim wb As Workbook '这个定义可以不要，不知道后面会不会有问题 Dim sh As Worksheet '这个定义可以不要，不知道后...

VBA通过一定规律匹配后另存为文件

liuxiaoddd的专栏

10-27

731

下载下来80多个文件只有中文机构名，通过机构对照表匹配对应的机构号，然后用机构号来另存文件。运行前：运行后：机构表：代码附上： Sub GetAll() Dim MyPath$, MyName$, NewName$, orgname$, orgno$ Dim N%, POS%, a% Dim MyFile Dim count! N = 1 POS = 0 a = 1 ActiveWorkbook.Sheets(1).Columns(1).Clear Activ..

将多个csv文件合并到一个excel文件的不同的sheet中

u011089523的博客

12-01

1万+

清楚工作表和工作簿的区别，下面的代码可以把同文件夹下的CSV文件复制到一个工作簿的不同工作表中。但在EXCEL2003中工作表的数量不能超过256个，否则会出错。 Private Sub copy_csvfile_to_excel() Dim MyPath$, myFile$, AK As Workbook Application.ScreenUpdating = Fals

多个Excel文档合并成一个文档文件

Sagittarius32的博客

01-20

6439

Sub Macro1() Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m& Set sh = ActiveSheet MyPath = ThisWorkbook.Path & "\" MyName = Dir(MyPath & "*.xls") Application.ScreenUpdating = False Cells.C

2020年一线城市程序员工资大调查

Python大本营的博客

09-07

596

趋势2020年从趋势上看，基本上一线城市的工资都是上升的趋势。人才需求一线城市共发布岗位38115个，招聘120827人。其中北京22805人广州25081人上海 39614人深圳...

利用VBA文件处理语句来处理文件

yunbiao的专栏

12-31

762

VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。（一）文件处理1.Name 语句语法：Name oldpathname As newpathname 功能：重命名一个文件、目录、或文件夹，移动一个文件。说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。示例：On Erro...

VB获取盘符里所有文件夹的名称

键盘上的舞指

03-16

999

Private Sub Form_Load() Dim sB As String Dim sF As String Combo1.Clear sB = “c:” sF = Dir(sB, vbDirectory) '寻找第一项 Do While sF <> “” '跳过当前的目录及上层目录 If sF <> “.” And sF <> “…” Then If (GetAttr(sB + sF) And vbDirectory) = vbDirectory Then Com

统计某篇英文有几个单词

mudxkx小筑

12-11

592

在excel中输入如下宏。保存为count.xls 然后将xls文件放入一堆英文文件的同一个目录中。运行CountWords宏，将自动统计出单词数。 Sub CountWords() Dim a() As String, n&, i&, m& Dim MyPath$, MyName$ MyPath = ThisWorkbook.Path & "\" MyName = Dir(MyPath &