-
等级
本版专家分：40553勋章
-
- 状元 2017年 总版技术专家分年内排行榜第一
-
- 榜眼 2014年 总版技术专家分年内排行榜第二
-
- 探花 2013年 总版技术专家分年内排行榜第三
-
-
进士
2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
-
-
仅供参考
?"begin...";: _
Set fs = CreateObject("Scripting.FileSystemObject"): _
Set a = fs.CreateTextFile("c:\alltext.txt", True): _
for each page in ThisDocument.Pages: _
a.WriteLine("----页:"+page.name+"----"): _
for each shape in page.Shapes: _
a.WriteLine(shape.Text): _
next: _
next: _
a.Close: _
Set a=Nothing: _
Set fs=Nothing: _
?"end"
-
等级
本版专家分：154 -
楼上的代码是什么意思？
怎么都是一行的呢？
是VB语句的么？
-
等级
本版专家分：6296勋章
-
-
红花
2011年2月 Web 开发大版内专家分月排行榜第一
2010年11月 Web 开发大版内专家分月排行榜第一
-
-
黄花
2011年3月 Web 开发大版内专家分月排行榜第二
2011年1月 Web 开发大版内专家分月排行榜第二
2010年10月 Web 开发大版内专家分月排行榜第二
2010年9月 Web 开发大版内专家分月排行榜第二
2010年6月 Web 开发大版内专家分月排行榜第二
-
-
蓝花
2012年10月 Web 开发大版内专家分月排行榜第三
2010年7月 Web 开发大版内专家分月排行榜第三
-
-
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\alltext.txt", True)
for each page in ThisDocument.Pages
a.WriteLine("----页:"+page.name+"----")
for each shape in page.Shapes
a.WriteLine(shape.Text)
next
next
a.Close
Set a=Nothing
Set fs=Nothing
楼主自己查下联机帮助FSO部分有详解。
-
等级
本版专家分：4131 -
Workbooks.OpenText Filename:="D:\a.txt", Origin:=936, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
以txt方式打开d:\a.txt
- Excel-VBA操作文件四大方法之二
（三）处理文本文件 1、Open 语句 语法：Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 其中access、lock、reclength为可选参数，一般不用。 mode ...
- 【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下： 1111 222 222 333 333 444 接着我们进行文件的读取，并且写入到Excel中，代码如下： Sub bb() Dim a, k%, i% Open "a.txt" For Input As #1 a = ...
- 【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格（友好版）
上一篇文章我们提到：更好的处理方式就是读取将每一行，按照空格再分为不同的单元格 代码实现如下： Sub bb() Dim a, b, k%, i%, j%, q% Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vb...
- 【一步一步学习VBA】将Excel的每行数据导出为txt文本
Sub 导出每行为txt() Dim i, j, arr(), brr(), myRow, myCol arr = Sheet1.UsedRange '将工作表的内容放入arr数组中 myRow = UBound(arr, 1) '计算出数组的行数 myCol = UBound(arr, 2) '计算出数组的列数 For i = 1...
- Excel VBA - 文件打开或关闭相关
→实现标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件。获取文件的FullName 表达式.GetOpenFilename(FileFilter,FilterIndex,Title, ButtonText, MultiSelect) FileFilter：过滤文件Title：标题...
- EXCEL-VBA：弹出对话框，打开文件（指定扩展名）
EXCEL-VBA：弹出对话框，打开文件（指定扩展名）
- 如何用VBA在打开EXCEL文件时自动运行宏
例子： Sub Auto_open() '一种方法是将宏的名称改为这个即可 MsgBox "欢迎回来继续学习VBA！" End Sub 还有一种方法就是使用VBE在工作簿的Open事件中编写VBA过程。 ...
- excel VBA编程番外篇（字典+正则表达式+FSO）
1.让windows脚本技术中的字典对象结合excel VBA，功能将更大的强大。 2.Microsoft Excel VBA与正则表达式技术的结合应用，将使VBA的数据处理功能更加强大 3.在Scripting 类型库 ...让excelVBA的功能更加的强大。
- Excel VBA教程：GetOpenFilename方法
显示标准的“打开”对话框，获取用户文件名，而不必真正打开任何文件。 expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect) expression 必需。该表达式返回一...
- Excel VBA 当前文件另存为txt
Sub saveTxt() Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path &...\bom_empty.txt", _ FileFormat:=xlText, CreateBackup:=False Application.Displ...
- EXCEL VBA 选择文件对话框
Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;...*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , T
- Excel VBA 不打开Excel文件访问其中内容的方法
Public Function GetCellValue(strPath, strFile, strSheet, strA1) If Right(strPath, 1) <> "\" Then strPath = strPath & ... If Dir(strPath & strFile) = "" Then '判断文件是否存在 '文件不存在时产生运行时错
- 【VBA研究】保存和打开Excel文件的代码
iamlaosong文 ...不同版本下指定保存文件格式的常数略有不同，下面是2010版将已打开的文件保存为xlsx格式的代码： 'DatFile是打开的Excel文件名 expfile = ThisWorkbook.Path & "\n...
- 通过VBA将excel数据导入至word文档
通过VBA将excel数据导入至word文档
- VBA程序xlsm文件另存xlsx不能保存的问题
表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) ...
- EXCEL-VBA：Workbooks.Open 参数 （打开文件）
打开一个工作簿。 语法 表达式 . Open( FileName , UpdateLinks , ReadOnly , Format , Password , WriteResPassword , IgnoreReadOnlyRecommended , Origin , Delimiter , Editable , ...
- 用DOS命令合并多个文本文件
从总部系统下的干线数据，有30个文本文件，希望变成一个Excel文件，方法是先用copy命令将文本合成一个，再用excel打开，最后保存为Excel文件。步骤如下： 1、将所有的文本文档拷贝到同一个文件夹，然后单击“开始...
- 利用Excel的VBA来处理XML
首先需要引用Microsoft的DLL，打开references管理器 勾上Microsoft XML 接下来便可以使用MSXML DOM（如果不清楚MSXML的，科普http://blog.csdn.net/pony_maggie/article/details/6706422） 创建文档对象、...
- VBA调用fso读取TXT转化EXCEL
VBA：TXT转EXCEL EXCEL版本： 2016 适用TXT样式： 固定分隔符规范TXT数据源 效果： 调用对话框选择打开TXT，设置TXT分割符，将转化文件保存到TXT文件同一目录下。如下图： 关于批量txt转化EXCEL： 可以...
- VBA使用FileSystemObject将读取或写入文本文件
有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject对象来进行操作。在接下来的几篇里我们介绍如何...
- 如何把Excel中的每一行都存储为一个TXT文档
当Excel中有多行数据时，恰巧我们也需要把每一行数据都存储成一个txt文档，那么我们要手工一个一个Ctrl+c——>Ctrl+v——>Ctrl+s吗？答案是肯定不行的哇，因为本人需要处理一个存储了6万多条数据的文档，为了...
- VBA 读取文本文件
Excel在我们的日常办公中，用到非常多。因此，对于它的脚本VBA的使用，难免也比较频繁。在此总结、整理下之前写过的一段VBA读取MAP文件，统计ECU存储空间使用情况的部分代码。 该段程序，先使用Collection集合类装载...
- Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt
我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法 Dir 函数 返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或...
- EXCEL VBA字符串替换
问题描述因为模型结构中字段名更改，需要修正对应的EXCEL说明文档。 修正规则如下，将原来的连字符形式改成驼峰式。 原始字段 修正后字段 session_id sessionId 打开VBA这里是使用excel自带的VBA进行处理。 在...
- 关于把文本文件复制到excel中如何能够自动排列好的问题
最简单的是直接选中多行直接粘贴或将扩展名改为csv直接打开或excel---数据----导入外部数据-----导入数据-------选择文本文件1.txT--------下一步------下一步------完成-------选择表中存放位置 2文本文件如果是数...
- excel vba点击按钮 弹出文本选择窗口 上传图片
Range("B14:C14").Select '选择单元格 这里选中的是一个合并的单元格 ...所有文件,*.*", , "选择附件") '获取上传图片的路径 ActiveSheet.Pictures.Insert(Sheet3.[a1].Value).S...
- ★Excel-VBA操作文件四大方法之一 by excelhome
这些数据文件可能是Excel文件、文本文件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。本文主要介绍四种常用的方法：1、利用Excel对象...
- 使用VBA让Word或Excel文档窗口置顶
在使用Word或Excel时有时需要让窗口总是显示在最前面而不被别的窗口挡住，虽然Word或Excel并没有提供这样的功能，但是在VBA中使用API函数“SetWindowPos”可以让窗口总在最前面，具体操作如下： 1. 打开需要置顶的...
- vba读取xml文件
创建完成xml文件以后需要vba读取，一下则是vba读取xml文件过程。 Dim xmlDoc, xmlRoot, ChildItem, msg Set xmlDoc = CreateObject ("Microsoft.XMLDOM") xmlDoc.Load "C:\Documents and Settings\...
- 在Excel中应用VBA批量导入数据
在Excel中应用VBA批量导入数据 马维峰 1. 问题由来当一个漂亮MM向你请教如何录制并修改一个宏，把她每次的实验数据（几十个数据文件）导入Excel时，你感慨道：“很多Excel专家会录制一个宏来解决问题，然后每次...