大家都进来看看

dingzhihui 2007-12-10 05:41:36
最近小弟正在作一套类似于财务账管理的软件,用户提供了EXCEL模块,要将EXCEL模块导入到控件中,以实现用户手动输入数据,程序自动计算金额和金额总计的功能,最后将控件中的数据再导出到EXCEL中保存.
现在另我头疼的是用什么控件来做,参考了一个进销存系统,它里面用了一个类似于报表控件来做的.有没有人做过类信的东东啊,指点一下小弟吧.
...全文
48 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dingzhihui 2007-12-11
楼上大哥:
如果用msflexgrid这个控件,那如果把excel模板的数据导进来呢,我试着导入了一次,结果只有exccel的列名进来了,其它数据没导进来.
  • 打赏
  • 举报
回复
饮水需思源 2007-12-10
MSHFlexgrid控件就可以实现的
提供一个导出EXCEL的例子(调用方法:call export(me,"mshflexgrid"):

Public Sub Export(formname As Form, flexgridname As String)
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet
Screen.MousePointer = vbHourglass
On Error GoTo Err_Proc
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
'Begin to fill data to sheet
Dim i As Long
Dim j As Integer
Dim k As Integer
With formname.Controls(flexgridname)
For i = 0 To .rows - 1
k = 0
For j = 0 To .Cols - 1
If .ColWidth(j) > 20 Or .ColWidth(j) < 0 Then
k = k + 1
xlSheet.Cells(i + 1, k).Value = "'" & .TextMatrix(i, j)
End If
Next j
Next i
End With
xlApp.Visible = True
Screen.MousePointer = vbDefault
Exit Sub
Err_Proc:
Screen.MousePointer = vbDefault
MsgBox "请确认您的电脑已安装Excel!", vbExclamation, "提示"

End Sub
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类

7617

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2007-12-10 05:41
社区公告
暂无公告