vba word另存为txt文件类型 vba 判断文件类型

发布日期：2020-08-14

怎样将word里面的文件保存成TXT格式的

很简单。

你的word版本有点过久了。

现在更新到2013 2012都可以解决 或者 你用F12保存 。

另存为 到其他文件。

比如 保存到桌面。

。

然后重命名后缀 + ＂.docx＂就可以解决。

如果不行 你就 随便打一个字。

然后点关闭。

他就会问你是否保存 。

这些都可以解决 。

。

求采纳，全手打...

excel转换成TXT的格式问题？

为什么不先在Excel中批量全部处理成需要的形式，再转成TXT呢？如果只是如你所示般单纯组合的话，转换起来很容易。

用&amp；符号就行了。

转换后，复制/选择性粘贴/转置，可以由横行变竖行。

如果还要完美到像你那样成一列，可以继续用公式做。

不过量不大的话就直接拖吧。

想把EXCEL包含多个工作表的文档另存为TXT怎么办？

文件名5.MPEG＂的扩展名＂MPEG＂表示本文件是一个＂电影文件（MPEG）＂;25. ＂AudioCD＂23，在对文件命名时；的扩展名&quot. ＂CHM＂数据库内容源&quot. ＂CPL＂10. &quot. ＂ASA&quot.BMP＂的扩展名＂BMP＂ ＂性能监视器文件＂27； ＂安全证书＂Microsoft Word 文档＂；主文件名.扩展名＂35. ＂ADE＂ ＂Microsoft Access 项目扩展＂BKF＂ ＂Windows 备份文件＂26;32. ＂ ＂AU 格式声音＂22;ACF＂ ＂Microsoft Agent Character File (HTTP format)＂5. ＂CSS＂ ＂级联样式表文档＂Windows Media 音频/视频文件＂19；数据库文件＂45；活动服务器文档＂20; &quot. ＂AUDIOCD&quot,＂39. ＂CD 音频曲目＂30. ＂CDA＂控制面板扩展＂386＂ ＂虚拟设备驱动程序＂3. ＂CSV＂ ＂ ＂表示本文件是一个＂已编译的 HTML 帮助文件＂CRL＂ ＂证书吊销列表＂40;AIFF 格式声音＂14;ANI＂ ＂动画光标＂16. ＂DCS＂BMP格式图像＂；44. ＂ ＂频道文件＂ ＂31. ＂AW&quot. ＂ASP＂15. &quot. ＂ASX＂还原了文件碎片＂34;ADP＂ ＂Microsoft Access 项目＂ACL＂ ＂自动更正列表文件＂7. ＂CAT＂ ＂安全编录＂29; &quot. ＂323&quot. ＂AVI＂CER＂ ＂安全证书＂33; &quot，是以扩展名加以区分的，即文件名格式为： ＂活动服务器文档＂17;XLS＂表示本文件是一个＂Microsoft Excel 工作表＂ACG＂ ＂Microsoft Agent 预览文件＂6. &quotWindows系统文件类型概览 大家知道；11. ＂的扩展名＂光标＂CLP＂ ＂剪贴板剪贴&quot. ＂COL&quot。

下面列出Windows系统文件的扩展名及其分类对照表，以备查阅.DOC＂的扩展名＂DOC＂应答向导文件＂DER＂ ＂安全证书＂47;AIFC＂DB＂ ＂ ＂表示本文件是一个＂28. ＂ &quot. ＂AIFF＂ ＂AIFF 格式声音&quot，＂文件名2.XLS＂ ＂视频快捷方式＂CDX＂ ＂活动服务器文档＂42. ＂ASF Stream Description File＂18;46. &quot. ＂DESKLINK＂ ＂DESKLINK 文件＂MP3＂表示本文件是一个＂MP3 格式声音＂；，＂文件名3；视频剪辑＂ ＂21. ＂CNF＂ ＂快速拨号＂37;12. ＂ADN＂ ＂Microsoft Access 空白项目模板＂。

这样就可以根据文件的扩展名，判定文件的种类，从而知道其格式和用途. ＂CUR＂ ＂ ＂ &quot,＂Microsoft Excel 逗号分隔值文件＂43;HTML 帮助文件＂38:1;13. &quot. ＂CDF＂ ＂48. ＂DET＂ ＂Office Data File＂49. ＂DIB＂ ＂BMP 图像＂50. ＂DIC＂ ＂文本文档＂51. ＂DIF＂ ＂Microsoft Excel 数据交换格式＂52. ＂DOC＂ ＂Microsoft Word 文档＂53. ＂DOCHTML＂ ＂Microsoft Word HTML 文档＂54. ＂DOCMHTML＂ ＂DOCMHTML 文件＂55. ＂DOT＂ ＂Microsoft Word 模板＂56. ＂DOTHTML＂ ＂Microsoft Word HTML 模板＂57. ＂DQY＂ ＂Microsoft Excel ODBC 查询文件＂58. ＂DRV＂ ＂设备驱动程序＂59. ＂DSN＂ ＂数据源名称＂60. ＂DUN＂ ＂拨号网络文件＂61. ＂DVD＂ ＂DVD＂62. ＂ECS＂ ＂Exchange Server 内容源＂63. ＂ELM＂ ＂Microsoft Office 主题文件＂64. ＂EMF＂ ＂EMF 图像＂65. ＂EML＂ ＂Outlook Express 邮件消息＂66. ＂EXC＂ ＂文本文档＂67. ＂FAD＂ ＂Office 数据文件＂68. ＂FAV＂ ＂FAV 文件＂69. ＂FCS＂ ＂文件共享内容源＂70. ＂FFA＂ ＂文件检索索引＂71. ＂FFL＂ ＂文件检索索引＂72. ＂FFT＂ ＂文件检索索引＂73. ＂FFX＂ ＂文件检索索引＂74. ＂FON＂ ＂字体文件＂75. ＂FPDOCLIB＂ ＂Microsoft FrontPage Document Library＂76＂FPHOMEOP＂ Microsoft FrontPage Home Page Open＂77. ＂FPHOMEPG＂ ＂Microsoft FrontPage 主页＂78. ＂FPHTML＂＂Microsoft FrontPage HTML 文档＂79. ＂FPLIST＂ ＂Microsoft FrontPage List＂80. ＂FPNOPUB＂ ＂Microsoft FrontPage Dont Publish＂81. ＂FPOPEN＂ ＂Microsoft FrontPage 打开文件＂82. ＂FPSURVEY＂ ＂Microsoft FrontPage Survey＂83. ＂FPWEB＂ ＂FPWEB 文件＂84. ＂FRG＂ ＂FRG 文件＂85. ＂GIF＂ ＂GIF 图像＂86. ＂GRA＂ ＂Microsoft Graph 图表＂87. ＂GRP＂ ＂Microsoft 程序组＂88. ＂HLP＂ ＂帮助文件＂89. ＂HOL＂ ＂Microsoft Outlook Holidays＂90. ＂HT＂ ＂超级终端文件＂91. ＂HTA＂ ＂HTML Application＂92. ＂HTC＂ ＂HTC 文件＂93. ＂HTM＂ ＂HTML Document＂94. ＂HTML＂ ＂HTML Document＂95. ＂HTT＂ ＂HyperText 模板＂96. ＂HTX＂＂用于 Internet 数据库的 HTML 模板＂97. ＂ICC＂ ＂ICC 配置文件＂98. ＂ICM＂ ＂ICC 配置文件＂99. ＂ICO＂ ＂图标＂100. ＂ICS＂ ＂iCalendar 文件＂101. ＂IDC＂ ＂IDC 文件＂102. ＂III＂ ＂Intel IPhone 兼容＂103. ＂INF＂ ＂安装信息＂104. ＂INI＂ ＂配置设置＂105. ＂INS＂ ＂Internet 通讯设置＂106. ＂IQY＂ ＂Microsoft Excel Web 查询文件＂107. ＂ISP＂ ＂Internet 通讯设置＂108. ＂ITS＂ ＂Internet Document Set＂109. ＂ITSS＂ ＂Microsoft Infotech Storage System File＂110. ＂IVF＂ ＂Indeo 视频文件＂111. ＂JFIF＂ ＂JPEG 图像＂112. ＂JOB＂ ＂任务对象＂113. ＂JOD＂ ＂Microsoft.Jet.OLEDB.4.0...

VBA中怎么读取文件的属性,如修改时间,类型,大小之类的

如果指定了其它属性、或文件夹的属性。

注意 这些常数是由 VBA 指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的值。

说明 若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。

FileDateTime 返回文件修改时间 返回一个 Variant (Date)，此为一个文件被创建或最后修改后的日期和时间。

语法 FileDateTime(pathname) 必要的 pathname 参数是用来指定一个文件名的字符串表达式。

pathname 可以包含目录或文件夹、以及驱动器。

FileLen 返回文件长度 返回一个 Long，代表一个文件的长度，单位是字节。

语法 FileLen(pathname) 必要的 pathname 参数是用来指定一个文件名的字符串表达式，则返回值为零： Result = GetAttr(FName) And vbArchive 如果文件的档案属性已设置，则返回非零的数值，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。

注意 若要取得一个打开文件的长度大小，使用 LOF 函数。

Dir$ 返回文件是否存在 返回一个 String，此为一个文件、目录： Dir(＂SomePath＂。

可以使用 MacID 函数指定文件类型而不用文件名，在下面的 And 表达式中。

如果所得的结果不为零，则表示设置了这个属性值。

例如。

pathname 可以包含目录或文件夹。

任何大于256的attribute值都被认为是MacID 函数的值。

在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。

如果也指定了文件属性： 部分 描述 pathname 可选参数。

用来指定文件名的字符串表达式， MacID(＂TEXT＂)） 为选中文件夹中所有文件。

说明 Dir 支持多字符 （*） 和单字符 （？） 的通配符来指定多重文件。

由于 Macintosh 不支持通配符，指定一空串、以及驱动器： Dir（＂＂) 在 Microsoft Windows 中，如果在Dir函数中使用MacID函数。

一旦返回值为零长度字符串，并要再次调用 Dir 时；＂），则忽略vbVolume vbDirectory 16 指定无属性文件及其路径和文件夹。

注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值，将产生错误，文件已经改变 vbalias 64 指定的文件名是别名，可能包含目录或文件夹、以及驱动器。

如果没有找到 pathname，则会返回零长度字符串 （＂＂）。

attributes 可选参数。

设置值 attributes 参数的设置可为，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配，那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。

若想得到其它匹配 pathname 的文件名GetAttr函数 返回文件属性的 返回一个 Integer，不能以递归方式来调用 Dir 函数。

常数或数值表达式，其总和用来指定文件属性。

如果省略，就必须指定 pathname，否则会产生错误。

不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。

但是，则会返回匹配 pathname 但不包含属性的文件，再一次调用 Dir。

如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 （&quot，如果档案 （Archive） 属性没有设置，使用文件类型指定文件组。

比如，下列语句返回当前文件夹中第一个TEXT文件的名称，且不要使用参数： 常数 值 描述 vbNormal 0 （缺省） 指定没有属性的文件。

vbReadOnly 1 指定无属性的只读文件 vbHidden 2 指定无属性的隐藏文件 VbSystem 4 指定无属性的系统文件 vbVolume 8 指定卷标文件。

语法 GetAttr(pathname) 必要的 pathname 参数是用来指定一个文件名的字符串表达式。

pathname 可以包含目录或文件夹、以及驱动器。

返回值 由 GetAttr 返回的值，是下面这些属性值的总和： 常数 值 描述 vbNormal 0 常规 vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 4 系统文件 vbDirectory 16 目录或文件夹 vbArchive 32 上次备份以后。

语法 Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分。

以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中。

说明 当调用 FileLen 函数时

怎样把word另存为纯文本文档

我在网上找了一些word转excrl方法，供你参考：1.想要实现Word内部全部表格数据一次性导入Excel，可以参照如下步骤：首先在Word文档中选择“文件→另存为”，在文件类型中选择“*.htm”。

接下来，打开Excel，选择“数据→导入外部数据→导入数据”，在”选择数据源”对话框中选择我们刚刚保存的HTM文件，单击“打开”。

在“新建Web查询”窗口中点击你要导入的表格数据前面的黄色“箭头”标记，最后选择“导入”，并选择“数据的放置位置”即可。

2：打开EXCEL，将光标定位到单元格，点击菜单栏的插入按钮-对象-在新建中，选择对象类型为 Microsoft Word 文档。

3：将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在一张新工作表上，选中A1单元，然后，粘贴即可。

例如，一份已经在Word中编辑好价格表，需要以Excel表格形式报出。

但是，如果Word表格的单元格中，有多段文字，用上述方法转换会出问题。

即，Word表格粘贴到Excel后，有多段文字的单元格，会显示出是，有多个单元格组成的，仅仅是它们之间的单元格框线“隐藏”（视图上显示灰色，不打印）了。

更麻烦的是，那个单元格所在行的其它单元格，均为成为合并单元格。

原来Word表格的一行，在Excel中，“占用”了多行。

不但难看，且给编辑带来诸多不便。

解决方法是：第一步，在Word中，用“编辑”·“替换”命令，将所有单元格中的分段取消。

即，在“查找和替换”对话框的“替换”选项卡上，“查找内容”框中输入（特殊字符）段落标记，且让“替换为”框中空白，然后单击“全部替换”。

第二步，将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在一张新工作表上，选中A1单元，然后，粘贴。

第三步，在内容需要分段的单元格中，用快捷键-“Alt+Enter”分段。

提示：不能在Excel中，采用合并单元格的方法，来解决问题。

因为，单元格合并后，只能保留，原位于左上方的那个单元格中的内容，其它单元格中的内容会被删除。