全部转换 Excel转CSV CSV转Excel Excel转TXT TXT转Excel Excel转PDF PDF转Excel Excel转图片 版本转换 Excel转JSON

Excel格式转换

Excel 转 CSV

源格式
Excel
.xlsx / .xls
→
目标格式
CSV
.csv
VBA代码
在线工具
  1. 步骤1：复制代码，保存为 `Excel转CSV.vbs`
  2. 步骤2：修改文件路径
  3. 步骤3：双击运行
Dim objExcel, objWorkbook, objWorksheet Dim strSourceFile, strOutputFile strSourceFile = "C:\test.xlsx" strOutputFile = "C:\test.csv" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Open(strSourceFile) Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.SaveAs strOutputFile, 6 objWorkbook.Close objExcel.Quit MsgBox "转换完成：" & strOutputFile
✅ 说明免费、批量、本地、无水印
❗ 注意仅保留数据，不保留格式、公式、宏
Convertio 免费转换
  1. 上传Excel → 选择CSV → 转换 → 下载
💡 每日免费5次，无需注册

CSV 转 Excel

源格式
CSV
.csv
→
目标格式
Excel
.xlsx
VBA代码
在线工具
  1. 保存为 `CSV转Excel.vbs` 运行即可
Dim objExcel, objWorkbook Dim strSourceFile, strOutputFile strSourceFile = "C:\test.csv" strOutputFile = "C:\test.xlsx" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Open(strSourceFile, , False, 6) objWorkbook.SaveAs strOutputFile, 51 objWorkbook.Close objExcel.Quit MsgBox "转换完成：" & strOutputFile
Convertio CSV→Excel

Excel 转 TXT

源格式
Excel
→
目标格式
TXT
VBA代码
手动方法
Dim objExcel, ws, fso, ts Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False Set ws = objExcel.Workbooks.Open("C:\test.xlsx").Sheets(1) Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile("C:\test.txt", True, True) For r = 1 To ws.UsedRange.Rows.Count line = "" For c = 1 To ws.UsedRange.Columns.Count line = line & ws.Cells(r, c).Value & vbTab Next ts.WriteLine line Next ts.Close: objExcel.Quit MsgBox "完成"
  1. 选中区域 → 复制 → 粘贴到记事本 → 保存

TXT 转 Excel

手动导入
  1. Excel → 数据 → 自文本/CSV
  2. 选择分隔符（逗号/制表符）
  3. 加载后保存为xlsx

Excel 转 PDF

Excel
.xlsx
→
PDF
.pdf
VBA代码
在线工具
Dim objExcel, objWorkbook Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Open("C:\test.xlsx") objWorkbook.ExportAsFixedFormat 0, "C:\test.pdf" objWorkbook.Close objExcel.Quit MsgBox "PDF已保存"
SmallPDF 免费转PDF

PDF 转 Excel

在线工具
iLovePDF 免费转换
  1. 上传PDF → 转换为Excel → 下载
  2. 文本PDF准确率高，扫描件需OCR

Excel 转 图片(PNG/JPG)

手动方法
VBA代码
  1. 选中区域 → 复制为图片
  2. 粘贴到画图工具 → 保存PNG/JPG
  3. Win+Shift+S 快速截图保存
Dim objExcel, ws, rng, chart Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set ws = objExcel.Workbooks.Open("C:\test.xlsx").Sheets(1) Set rng = ws.UsedRange rng.CopyPicture 1, 2 Set chart = ws.ChartObjects.Add(0, 0, rng.Width, rng.Height).Chart chart.Paste chart.Export "C:\test.png" chart.Parent.Delete ws.Parent.Close False objExcel.Quit MsgBox "图片已保存"

版本转换 xlsx ↔ xls

VBA批量转换
Dim objExcel, wb Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Set wb = objExcel.Workbooks.Open("C:\test.xlsx") wb.SaveAs "C:\test.xls", 56 wb.Close objExcel.Quit MsgBox "版本转换完成"
51=xlsx，56=xls

Excel 转 JSON

在线工具
csvjson.com 免费转换
  1. 先将Excel另存为CSV
  2. 上传CSV → 导出JSON
支持表格转JSON，前端/接口调试常用