Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 使用宏将*.doc转换为*.csv_Vba_Excel_Csv_Libreoffice Calc - Fatal编程技术网

Vba 使用宏将*.doc转换为*.csv

Vba 使用宏将*.doc转换为*.csv,vba,excel,csv,libreoffice-calc,Vba,Excel,Csv,Libreoffice Calc,我想通过运行宏将文档文件转换为csv 我可以手动完成这项工作,但是VBA的新版本需要帮助来编写代码 手动步骤: 将doc的内容复制到xls文件,使用粘贴特殊模式和未格式化文本 然后执行TRIM功能并转置行和列 现在将内容保存到新的CSV文件中 文档文件的格式是否正确,可以作为CSV写入?那我就照你说的做 Selection.MoveRight Unit:=wdLine, count:=1 Selection.Text 'Text to write 在工作表中所有行的循环中 在这里,您可以看到如

我想通过运行宏将文档文件转换为csv

我可以手动完成这项工作,但是VBA的新版本需要帮助来编写代码

手动步骤:

  • doc
    的内容复制到
    xls
    文件,使用
    粘贴特殊模式和未格式化文本
  • 然后执行
    TRIM
    功能并转置行和列
  • 现在将内容保存到新的
    CSV
    文件中

  • 文档文件的格式是否正确,可以作为CSV写入?那我就照你说的做

    Selection.MoveRight Unit:=wdLine, count:=1
    Selection.Text 'Text to write
    
    在工作表中所有行的循环中

    在这里,您可以看到如何使用VBA写入文件:


    如果您不想按上面键入的方式执行,您也可以使用Word或Excel中的“录制宏”功能,在将文件保存为csv时录制宏,然后检查VBE模块。没有理由先将宏录制到Excel,然后再录制到csv,您可以将文本直接写入csv。见下面德鲁的答案。