Vba 将Excel中的每一行导出到其自己的Word文档中
这将是非常具体的 我有一张excel表格,每行都有患者姓名和信息。第一行具有每列的标签。例如,列a是PatientName。我试图将每一行导出为它们自己的word文档,行中的每个单元格都有自己的行,每行之间有空格/分隔符。但我也希望第1行中的标签与每一行对应。还要使第一列又名PatientName成为每个文档的名称 前 文件名称:John Doe 相遇日期Vba 将Excel中的每一行导出到其自己的Word文档中,vba,excel,ms-word,export,Vba,Excel,Ms Word,Export,这将是非常具体的 我有一张excel表格,每行都有患者姓名和信息。第一行具有每列的标签。例如,列a是PatientName。我试图将每一行导出为它们自己的word文档,行中的每个单元格都有自己的行,每行之间有空格/分隔符。但我也希望第1行中的标签与每一行对应。还要使第一列又名PatientName成为每个文档的名称 前 文件名称:John Doe 相遇日期 11-12-13 CC 腹痛 HPI Doe先生是一堆废话和文字 \前 第1行看起来像: 患者姓名/遭遇日期/抄送/HPI 第2排是我们要开
11-12-13 CC
腹痛 HPI
Doe先生是一堆废话和文字 \前 第1行看起来像: 患者姓名/遭遇日期/抄送/HPI 第2排是我们要开始的地方,看起来像: 约翰·多伊/11-12-13/腹痛/多伊先生诸如此类 每行有27个单元格 谢谢,如果你需要更多信息,请告诉我。VBA代码 编辑:这是我正在使用的代码,但它将每个文件制作成一个Excel工作表,并且不会在每行中添加第1行
Sub SaveRowsAsCSV()
Dim wb As Excel.Workbook, wbNew As Excel.Workbook
Dim wsSource As Excel.Worksheet, wsTemp As Excel.Worksheet
Dim r As Long, c As Long
Set wsSource = ThisWorkbook.Worksheets("AmazingChartsEncounters")
Application.DisplayAlerts = False 'will overwrite existing files without asking
r = 1
Do Until Len(Trim(wsSource.Cells(r, 1).Value)) = 0
ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(1)
Set wsTemp = ThisWorkbook.Worksheets(1)
For c = 2 To 27 'I didn't test it when I changed the 7 here to 27
wsTemp.Cells((c - 1) * 2 - 1, 1).Value = wsSource.Cells(r, c).Value
Next c
wsTemp.Move
Set wbNew = ActiveWorkbook
Set wsTemp = wbNew.Worksheets(1)
'wbNew.SaveAs wsSource.Cells(r, 1).Value & ".csv", xlCSV 'old way
wbNew.SaveAs "textfile" & r & ".csv", xlCSV 'new way
'you can try other file formats listed at http://msdn.microsoft.com/en-us/library/office/aa194915(v=office.10).aspx
wbNew.Close
ThisWorkbook.Activate
r = r + 1
Loop
Application.DisplayAlerts = True
End Sub
我编辑了我的帖子以放置我使用的代码。您可以尝试查看邮件合并:请参见此处了解如何在VBA中执行此操作,以及此处了解如何设置初始合并:这显示了一些实际生成Word doc:的代码,或此处:更容易让人理解,如果你提供了屏幕截图和最终结果,我编辑了我的文章,以放置我使用的代码。你可以尝试查看邮件合并:请参阅此处了解如何在VBA中执行此操作:以及此处了解如何设置初始合并:这显示了一些实际生成Word文档的代码:或此处:更易于人们理解,如果您提供了屏幕截图,显示了它的外观和最终结果