我后来重新用同样的方法做了一个界面!再代码窗口输入同样的代码!运行都他提示说用户定义类型未定义义!!出现阴影的地方还是如下中的xlsApp As Excel.Application,只是不想上次那样说是不存在工程或库了!我茫然了! Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim AllCount_row As Integer 'Excel表中数据行数 Dim AllCount_column As Integer 'Excel表中数据列数 Dim XX(0 To MAX_row) As Variant '档距值(XX(0)为文字说明) Dim YY(0 To MAX_row, 1 To MAX_column) As Variant '应力及 |