主题：生成文件在几台电脑都可以，就是有一台不行，提示这些出来

按钮代码发上来看看

 Dim cm = e.form.Controls("ComboBox1").text
        Dim App As New MSExcel.Application
        Dim u As Table = Tables("销售开piao明细")
        For j As Integer = 0 To u.Rows.count - 1 Step 150
            Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\全电fa piao.xls")
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("明细模板")
            Dim r As Integer
            For i As Integer = 0 To 149
                If i + j < u.Rows.count Then
                    Dim u1 As Row = u.Rows(i + j)              
                    
                    Dim d1 = u1("开piao型号").Length
                    If d1 > 40 Then
                        Ws.Range("C" & i + 4).Value = u1("开piao型号").SubString(0, 39)''''''规格型号
                    Else
                        Ws.Range("C" & i + 4).Value = u1("开piao型号").SubString(0, d1)''''''规格型号
                    End If
                   
                    Ws.Range("D" & i + 4).Value = u1("单位")''''''单位
   
                End If
            Next
            Wb.SaveAs("D:\" & cm & j & ".xls")
            Wb.close
        Next
        App.quit 
 ")

这种使用的是vba，调用的是office的组件，一旦wps不兼容office的组件，就会出问题。2、这种仅仅是导数据，没有设置复杂的样式控制，改为使用XLS.Book，不要使用vba：http://www.foxtable.com/webhelp/topics/1148.htm

好的，试试先