VBA - 鸟语天空

打开当前文件夹

作者：追风剑情发布于：2015-3-10 14:22 分类：VBA

Sub OpenCurrentDir() Shell "explorer " & ThisWorkbook.path, vbNormalFocus End Sub

标签: VBA

VBA导入导出txt

作者：追风剑情发布于：2014-11-30 20:55 分类：VBA

此文章以项目中的一个实际需求为例一、工程结构二、UserForm1代码 Private Sub UserForm_Initialize() lastListIndex = 0 End Sub Private Sub CommandButton1_Click() lastListIndex = UserForm1...

阅读全文>>

标签: VBA

评论(0) 浏览(3421)

VBA导入txt文件

作者：追风剑情发布于：2014-11-29 11:52 分类：VBA

一、测试文件Test.txt 二、新建宏三、VBA脚本 Sub UserOpenText() Workbooks.OpenText _ Filename:=ThisWorkbook.Path & "\Test.txt", _ StartRow:=2, _ DataType:=xlDeli...

阅读全文>>

标签: VBA

评论(0) 浏览(5110)

Public Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cc...

阅读全文>>

标签: VBA

评论(0) 浏览(16764)