关于实现vb中的内容添加到excel中 - 编程论坛

#2

Artless2014-02-07 17:11

直接用excel

#3

panhai6272014-02-07 17:26

回复 2楼 Artless

还请明示！！

#4

w3609894262014-02-07 18:06

这样做的目地是什么啊？、

#5

chen35232014-02-09 14:14

如果没有数据库，参照版主的建议直接用EXCEL。如果有数据库可以试用下列代码；如果想把很多的查询的汇总到一个表格，修改通用模块可以达到目的，但比较烦
Private Sub Command2_Click()
   If DataGrid1.Visible = True Then
      OutToExcel DataGrid1    '将DataGrid1数据传给Excel，
   Else
     MsgBox "本窗口数据不能传给Excel,抱歉！"
   End If
End Sub

Public Sub OutToExcel(TheGrid As DataGrid)    '可以将此过程放在通用模块中
Set xlapp = CreateObject("excel.application")
Dim xlBook As Object
Dim xlSheet As Object     '建立excel对象的工作薄对象
Set xlBook = xlapp.Workbooks.Add     '建立excel对象的工作表对象
Set xlSheet = xlBook.Worksheets(1)    '下面将DATAGRID中数据导出到EXCEL中
With TheGrid
  .Bookmark = 1
  For i = 1 To .ApproxCount
     .Bookmark = i
        For j = 0 To .Columns.Count - 1
           xlSheet.Cells(1, j + 1).Value = .Columns(j).Caption      '第一行显示表堤
           xlSheet.Cells(i + 1, j + 1).Value = .Columns(j).Text
        Next
  Next
End With
xlapp.Visible = True
End Sub

#6

水到渠成VB2014-02-10 11:42

强烈建议使用数据库，从

实际出发，这才是工作中最需要的地方。

#7

w3609894262014-02-12 15:20

建议使用数据库
datagrid导出代码如下
Private Sub Command7_Click()
Dim excel1 As Excel.Application
    Set excel1 = New Excel.Application
    excel1.Visible = True
    excel1.Workbooks.Open (App.Path & "\程序模版.xls")
    excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Select
    If excel1.Workbooks("程序模版.xls").ReadOnly = True Then
        excel1.DisplayAlerts = False
        excel1.Application.Quit
        excel1.DisplayAlerts = True
        MsgBox "你已经打开“程序模版.xls”" & Chr(13) & "请关闭原有的“程序模版.xls”，在运行导出到excel。", vbOKOnly, "错误提示"
        Exit Sub
    Else
        excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Cells.Clear
        excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Range("A2").CopyFromRecordset Adodc1.Recordset
         With excel1.Workbooks("程序模版.xls").Sheets("确认对账结果")
            .Cells(1, 1) = "地域"
            .Cells(1, 2) = "所属公司"
            .Cells(1, 3) = "酒店名称"
            .Cells(1, 4) = "期间总金额"
            .Cells(1, 5) = "入账日期"
            .Cells(1, 6) = "确认结果"
            .Cells.Font.Size = 9
            .Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
                           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            .Columns.AutoFit
            .Rows.AutoFit
            .Columns("d:d").NumberFormatLocal = "￥#,##0.00;￥-#,##0.00"
            .Columns("e:e").NumberFormatLocal = "yyyy-mm""月"""
        End With
    End If
End Sub