vba 中望 表格如何转excel

Question

vba 中望cad软件里面的工艺图里面的 表格如何转excel，求vba源码的demo

Answer 1

引自免费微信小程序：皆我百晓生

1. 使用 VBA 将表格转成 Excel 表格

有多种方法可以使用 VBA 将表格转换为 Excel 表格，其中一种简单的方法是通过复制和粘贴来实现。以下是一个示例代码，可以将 CAD 软件里的工艺图表格复制到 Excel 工作表中：

Sub ConvertTableToExcel()
    ' 创建新的 Excel 工作簿
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = True
    Dim excelWorkbook As Object
    Set excelWorkbook = excelApp.Workbooks.Add
    Dim excelWorksheet As Object
    Set excelWorksheet = excelWorkbook.Sheets(1)
    
    ' 在 CAD 软件中选择并复制工艺图表格
    ' 注意需要根据具体 CAD 软件的操作进行修改
    ' 可能需要使用 CAD 软件的 API 或其他方法获取表格
    ' 以下是示例代码仅供参考
    ' ...
    
    ' 将复制的表格粘贴到 Excel 工作表中
    excelWorksheet.Activate
    excelWorksheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
    
    ' 清空剪贴板
    Application.CutCopyMode = False
    
    ' 保存 Excel 工作簿
    ' 可根据需要修改保存路径和文件名
    excelWorkbook.SaveAs "C:\path\to\output.xlsx"
    
    ' 关闭 Excel 工作簿
    excelWorkbook.Close
    excelApp.Quit
    
    ' 释放对象
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub

请根据具体情况自行更改代码中的注释部分以及保存路径和文件名。

2. VBA 源码的 DEMO 可用于 CAD 软件中的工艺图表格转 Excel 的示例代码

由于不知道具体的 CAD 软件和工艺图表格的结构，无法给出完整的 DEMO。您可以根据以下示例代码进行修改和拓展，以适应您的具体情况：

Sub ConvertCADTableToExcel()
    ' 创建新的 Excel 工作簿
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = True
    Dim excelWorkbook As Object
    Set excelWorkbook = excelApp.Workbooks.Add
    Dim excelWorksheet As Object
    Set excelWorksheet = excelWorkbook.Sheets(1)
    
    ' 获取 CAD 软件的工艺图表格数据
    ' 这里需要根据具体 CAD 软件的 API 或其他方法进行修改
    ' 以下是示例代码仅供参考
    Dim cadTableData As String
    cadTableData = GetCADTableData()
    
    ' 解析并将工艺图表格数据写入 Excel 工作表中
    ' 这里的解析过程需要根据工艺图表格的结构进行修改
    ' 以下是示例代码仅供参考
    Dim tableRows() As String
    tableRows = Split(cadTableData, vbCrLf)
    
    Dim rowIndex As Integer
    For rowIndex = 1 To UBound(tableRows) + 1
        Dim tableRow() As String
        tableRow = Split(tableRows(rowIndex - 1), vbTab)
        
        Dim columnIndex As Integer
        For columnIndex = 1 To UBound(tableRow) + 1
            excelWorksheet.Cells(rowIndex, columnIndex).Value = tableRow(columnIndex - 1)
        Next columnIndex
    Next rowIndex
    
    ' 保存 Excel 工作簿
    ' 可根据需要修改保存路径和文件名
    excelWorkbook.SaveAs "C:\path\to\output.xlsx"
    
    ' 关闭 Excel 工作簿
    excelWorkbook.Close
    excelApp.Quit
    
    ' 释放对象
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub

Function GetCADTableData() As String
    ' 这里需要使用 CAD 软件的 API 或其他方法获取工艺图表格数据
    ' 以下是示例代码仅供参考
    Dim tableData As String
    tableData = "1 Name1    Value1" & vbCrLf & _
                "2 Name2    Value2" & vbCrLf & _
                "3 Name3    Value3"
    GetCADTableData = tableData
End Function

请根据具体情况修改代码中的注释部分以及保存路径和文件名，以及根据 CAD 软件需要的方式获取和解析工艺图表格数据。

希望这些代码能对你有帮助！如果有任何疑问，请随时提问。