【CBM666 请教VB导入Excell问题】

在已安装Office的电脑上, VB导入Excell 完全没有问题

但在客户端 如果未安装 Office 的情况 该如何解决? 是否能像Realplayer一样 拷几个文件注册一下即可?

Option Explicit
Dim VbExcell As Object
Dim vbbook As Object
Dim i&, Trows%, Tcols%, AppDisk$, DataDisk$
Private Sub Form_Load()
  Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
  AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
  DataDisk = AppDisk & "Datas\"
  Set VbExcell = CreateObject("Excel.Application") '创建excel对象
  'VbExcell.Visible = True '对象可见
  Set vbbook = VbExcell.Workbooks.Open(AppDisk & "Blank.xls") '打开文件
  If Val(VbExcell.Application.Version) >= 8 Then
  Set vbbook = VbExcell.ActiveSheet
  Else
  Set vbbook = VbExcell
  End If
  Trows = VbExcell.ActiveSheet.UsedRange.Rows.Count
  Tcols = VbExcell.ActiveSheet.UsedRange.Columns.Count
End Sub

Private Sub Form_Unload(Cancel As Integer)
  VbExcell.Quit
  Set vbbook = Nothing
  Set VbExcell = Nothing
  End
End Sub

Private Sub Command1_Click()
  VbExcell.Sheets("Sheet1").Select
  VbExcell.Cells(1, 3) = "CBM666"
  MsgBox "OK!"
End Sub

'请问有哪位用过类似代码吗？能有 第三类 的解决方案 ??

最好的办法还是安装OFFICE

看看有没有免费的excel的生成工具。
如果只是数据的话，建议csv。

貌似把那个dll打包就可以