如何将Excel文档题库转为word文档？请高手赐教！万分感谢！！！
Excel题库见附件1

最终word文档见附件2

[此贴子已经被作者于2024-5-5 13:24编辑过]

压缩文件为Excel题库

VBA代码如何改写为VFP代码？请高手赐教！


Sub 导出题库()
    Set doc = CreateObject("word.application") '创建Word对象
    Set wd = doc.Documents.Add
    With ThisWorkbook.Worksheets(2)
        rrow = .Range("a65536").End(3).Row
        For i = 2 To rrow
            arr = Split(.Cells(i, 3), "|")
            If UBound(arr) > 1 Then
                strr = .Cells(i, 1) & "、" & .Cells(i, 2).Value & vbCrLf & _
                "A." & arr(1) & "B." & arr(2) & "C." & arr(3) & "D." & arr(4) & vbCrLf & "标准答案：" & .Cells(i, 4)
                With doc.Selection
                    .TypeText strr
                    .TypeParagraph
                End With
            Else
            End If
        Next
        wd.SaveAs ThisWorkbook.Path & "\例子.docx"
End with
End sub

这里只解释一下这个代码的意义: .Range("a65536").End(3).Row
这个代码的整体的意思是:a列有数据的最后一行的行号
Range("a65536")表示a列65536行的单元格
End(3)表示基于前面的单元格往上查找出有数据的单元格(找到一个即停止), 3即xlUp, 除了xlUp,还有xlToLeft, xlToRight等参数
Row表示单元格的行号

再说一下65536是xls每个sheet能存数据的最大行数, 如果是xlsx那最大行数比这个大很多, 所以为了兼容性, 这个代码应该改成:
.Cells(.Rows.Count, 1).End(xlUp).Row