【CBM666 请问VB导入Excell有关问题】

【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

'请问有哪位用过类似代码吗？能有 第三类 的解决方案 ??
[最优解释]
看看有没有免费的excel的生成工具。
如果只是数据的话，建议csv。
[其他解释]
最好的办法还是安装OFFICE
[其他解释]
貌似把那个dll打包就可以
[其他解释]

引用:

貌似把那个dll打包就可以

那个DLL？
[其他解释]
简单数据用csv格式即可,在有excel的电脑上打开,会自动用excel打开csv文件.导处不受任何限制,因为他就是文本文件
[其他解释]
看似只能解析了。
参考下Excel文件格式，做一个解析器试试。（貌似较为麻烦的说）
Word.Application的COM组件单个搬移到别的平台上可以么？
[其他解释]
试试能不能通过sql语句操作。
[其他解释]
没有安装excel就提示用户安装，用户没有安装excel,生成xls文件也没有，用户也看不了啊！
[其他解释]
excel读取 用 Microsoft.Jet.OLEDB.4.0
[其他解释]
可以用ado或者表格控件导入
[其他解释]

引用:

没有安装excel就提示用户安装，用户没有安装excel,生成xls文件也没有，用户也看不了啊！

[其他解释]
记得有一个VB版的类还是库,自己解析EXCEL格式,而无需安装EXCEL.

去年见到过,一时没找着......先找找看.

不过最理想的当然还是装上EXCEL了,比如随身带上个十来兆的EXCEL2003精简绿色版....不过不知道能不能让COM部分正常工作啊......
[其他解释]
既然是客户端，说明是网络程序，这种工作直接交由服务器去生成再下载到客户端也是可以的呀。
还有就是生成Excel文件的问题，你可以搜索一下“PHPExcel”

查看更多 下一篇