如何把数据导入已建好的excel中

mjexe 2008-06-26 07:07:13

各位大大好!
请问如何将 FORM 中相关控件中的数据处理,或ACCESS 中的数据导入到已建好的excel中
能有相关的代码吗?
TKS
...全文
99 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
mjexe 2008-06-30
  • 打赏
  • 举报
回复
加一个很菜的问题,我怎样才能,引发导入事件呢?
杨哥儿 2008-06-30
  • 打赏
  • 举报
回复
加个"导入"按钮,在onclick()中处理.
CathySun118 2008-06-28
  • 打赏
  • 举报
回复
http://topic.csdn.net/t/20020526/16/753894.html
bobod2008 2008-06-28
  • 打赏
  • 举报
回复
楼上正解!!
杨哥儿 2008-06-28
  • 打赏
  • 举报
回复
3楼是:
vb把access中数据导入excel中.

以下是一个把MsFlexGrid网格数据导入到Excel的例子。当然也可是其他数据源,变动一下程序就可以了。

Public Sub OutDataToExcel(Flex As MsFlexGrid) '导出至Excel
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
On Error GoTo Ert
Dim Excelapp As Excel.Application
Set Excelapp = New Excel.Application
On Error Resume Next
DoEvents
Excelapp.SheetsInNewWorkbook = 1
Excelapp.Workbooks.Add
Excelapp.ActiveSheet.Cells(1, 3) = s
Excelapp.Range("C1").Select
Excelapp.Selection.Font.FontStyle = "Bold"
Excelapp.Selection.Font.Size = 16
With Flex
k = .Rows
For i = 0 To k - 1
For j = 0 To .Cols - 1
DoEvents
Excelapp.ActiveSheet.Cells(3 + i, j + 1) = "'" & .TextMatrix(i, j)
Next j
Next i
End With
Ert:
If Not (Excelapp Is Nothing) Then
Excelapp.Quit
End If
End Sub
杨哥儿 2008-06-28
  • 打赏
  • 举报
回复
Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public db As String
Private Sub Form_Load()
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
db = appdisk
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "alex.mdb"
conn.CursorLocation = adUseClient
conn.Open db
rs.Open "aaa", conn, adOpenKeyset, adLockPessimistic
End Sub

Private Sub Command1_Click()
Dim lRow As Long
Dim sXLSPath As String
Dim MyExcel As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Screen.MousePointer = 11
sXLSPath = appdisk & "maindata.xls"
Open sXLSPath For Output As #1
Close #1
Set MyExcel = CreateObject("excel.application")
Set MyBook = MyExcel.Workbooks.Open(sXLSPath)
Set MySheet = MyExcel.ActiveSheet
MySheet.Range("A1:O1").Select
With MyExcel.Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
MySheet.Columns("A:C").NumberFormat = "0_ "
MySheet.Columns(1).ColumnWidth = 5
MySheet.Columns(2).ColumnWidth = 10
MySheet.Columns(3).ColumnWidth = 10
MySheet.Columns(4).ColumnWidth = 10
MySheet.Columns(5).ColumnWidth = 10
MySheet.Columns(6).ColumnWidth = 10
MySheet.Columns(7).ColumnWidth = 10
MySheet.Columns(8).ColumnWidth = 10
MySheet.Columns(9).ColumnWidth = 10
MySheet.Cells(1, 1) = "proid"
MySheet.Cells(1, 2) = "product"
MySheet.Cells(1, 3) = "batchno"
MySheet.Cells(1, 4) = "seqno"
If rs.EOF = True Then
rs.Close: Set rs = Nothing
Screen.MousePointer = 0
Exit Sub
End If
Do While rs.EOF = False
lRow = lRow + 1
MySheet.Cells(lRow + 1, 1) = rs.Fields("seqno")
MySheet.Cells(lRow + 1, 2) = rs.Fields("weight")
MySheet.Cells(lRow + 1, 3) = rs.Fields("unitprc")
MySheet.Cells(lRow + 1, 4) = rs.Fields("account")
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
MyExcel.DisplayAlerts = False
MyBook.SaveAs FileName:=appdisk & "maindata.xls", FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MyBook.Application.Quit
MyExcel.Application.Quit
Set MySheet = Nothing
Set MyBook = Nothing
Set MyExcel = Nothing
Screen.MousePointer = 0
MsgBox "Successful Established Excell File Maindata.xls", vbOKOnly, "Bawang Electronic Price Scale"
End Sub
xjtuwjy 2008-06-27
  • 打赏
  • 举报
回复
友情帮顶
xjtuwjy 2008-06-27
  • 打赏
  • 举报
回复
友情帮顶

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧