我之前总结过一些我常用的。看吧。
主要的实用代码片段如下:
##实用代码片段
###文件操作
####引用打开的工作簿
使用索引号(从1开始)
``vbnet
练习册(1)
```
使用工作簿名称
``vbnet
工作簿(1.xlsx)
```
####创建excel工作簿对象
``vbnet
变宽组件
将wb标注为工作簿
设置wdcreateobject()
真实的
设置wb(amp/t:d:1.xls
```
另存为(保留源文件,不打开新文件)
``vbn:d:1.xls
```
####复制文件
``vbnet
oldfileamp/old.xlsx
newfileamp/new.xlsx
文件复制旧文件,新文件
```
####复制文件夹
``vbnet
设置fsocreateobject()
dstdir
```
####删除文件夹下的所有文件。
``vbnet
基本放大器/文件夹/
模式基础放大器*。*
文件目录(模式,vbreadonly)
当文件ltgt
取消基本放大器文件
文件目录
行
```
####创建文件夹
``vbnet
目录
```
####确定文件夹是否存在。
如果不存在,则创建以下内容。
``vbnet
如果dir(outputdir,16)为空,则
输出目录
如果…就会结束
```
####判断文件是否存在。
方法1:
``vbnet
暗淡的filesystemobject作为对象
设置filesystemobjectcreateobject()
如果(ltfilepathgt)为真,则
msgbox文件存在。
如果…就会结束
```
方法二:
``vbnet
将文件标注为字符串
文件目录()
如果文件ltgt,则
msgbox文件存在。
endif
```
###格式操作
####设置边框和自动过滤
``vbnet
设置rng
使用rng
xl连续
.borders.weightxlthin
。自动筛选
以…结尾
```
####获取或设置单元格背景色。
``vbnet
我的工作表。单元格(i,j)
```
####让表格中选定的单元格变成指定的颜色。
将以下代码段添加到此工作簿中:
``vbnet
私有子工作簿_sheetselectionchange(byvalsh作为对象,byvaltarget作为范围)
如果你的床单
0
六
如果…就会结束
末端接头
```
####在单元格中回车/换行
使用“chr(10)”和“chr(13)”设置单元格值,分别表示回车和换行。
####隐藏行
``vbnet
(一)。隐藏的真实
```
####单元格内容是纯文本。
``vbnet
床单。细胞(m,n)。数字格式本地@
```
####设置单元格公式
``vbnet
对于activesheet中的每个单元格。范围(c1:c10)
替代(安培)
subbb()dims1,s2作为字符串dims()作为字符串s11234s2trim(工作表函数。text(s1,(0,len(s1))ssplit(s2,)endsub大意是这样的:在每个字符后加一个空格,然后再拆分。
例子子是一个数字,变成字符串后第一个需要修改的参数。那个就是它。还有就是使用正则表达式一点一点的插入用来拆分字符串的字符,然后使用split。