---

一. 需求

⏹有如下表格，现在想在Excel中添加一个按钮

• 点击按钮之后，读取该表格中的数据，生成csv文件
• 将csv文件输出到和Excel同级目录

---

二. 宏代码

• Application.PathSeparator：路径分隔符
• CreateObject("ADODB.Stream")：UTF-8 文本流
• .Range()：指定单元格对象
• .Range("B3").End(xlDown).Row：单元格 B3 开始，向下查找，找到最后一个【连续非空】单元格的行号
  • 💥注意：一定要是连续非空，如果中间有空格，最后的行号会中断在空格处。

Private Sub Create_CSV_Click()Dim stream As ObjectDim ws As WorksheetDim lineInfo As String' 改行Const adWriteLine = 1' 覆盖模式Const adSaveCreateOverWrite = 2' 设置目标工作表Set ws = ThisWorkbook.Sheets("SHOP_INFO")' 生成文件名Dim fileName As String: fileName = ThisWorkbook.Path & Application.PathSeparator & ws.Range("A1").Value' 数据读取开始行Const startLine = 4' 计算数据读取终了行: 单元格 B3 开始，向下查找，找到最后一个【连续非空】单元格的行号Dim endLine As Long: endLine = ws.Range("B3").End(xlDown).Row' =====================================================================================================' 创建 UTF-8 文本流Set stream = CreateObject("ADODB.Stream")With stream.Charset = "UTF-8"' 使用LF换行符 .LineSeparator = -1 .Open' 逐行写入 CSV 数据For i = startLine To endLine' 一行csv数据lineInfo = """" & ws.Range("B" & i).Value & """," & _"""" & ws.Range("C" & i).Value & """," & _"""" & ws.Range("D" & i).Value & """," & _"""" & ws.Range("E" & i).Value & """"' 将一行csv数据写入文件中.WriteText lineInfo, adWriteLineNext i' 保存文件（覆盖模式）.SaveToFile fileName, adSaveCreateOverWrite' 关闭文本流.CloseEnd With' 回收Set stream = NothingMsgBox "CSV 文件创建成功！", vbInformationExit Sub
End Sub

---

三. 添加按钮

⏹如下图所示，在【开发工具】选项卡中，插入一个按钮到Sheet页中

⏹然后将按钮与宏代码关联即可