vb导入excel数据代码(vbs读取excel数据)

1. vbs读取excel数据

Set oexcel=CreateObject("excel.application")

Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")

Set osheet=obook.Sheets("sheet1")

'显示第一个工作表A1单元格数据

msgbox osheet.cells(1,1)

Set obook=Nothing

Set osheet=Nothing

oexcel.Quit

2. vb 导出excel

首先，工程－引用microsoftExcel11.0)bjectLibrary然后代码如下：

DimxlAppAsObjectDimxlBookAsObjectSetxlApp=CreateObject("Excel.Application"

)SetxlBook=xlApp.Workbooks.AddWithxlAppxlApp.Visible=False.Rows(1).Font.Bold=True'设置第一行为粗体.Cells(10,10).Value＝"姓名".Application.Visible=TrueEndWithSetxlApp=NothingSetxlBook=Nothing如想了解其他操作excel的代码，可以在excel中，点击菜单的工具——宏——录制新宏。

然后你手动对excel操作，操作完成后停止录制。

再点击工具——宏——visualbasic编辑器，找到刚才录制的宏，就可以看到刚才对excel所做的操作对应的vb代码了。

3. vb导出到excel的方法

Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)

4. vb如何导入数据

dim con as new adodb.connection

dim rs as new adodb.recordset

private sub form_load() '在窗体加载事件中，设置两个文本框内容为空，

B.text="" '设置文本框B内容为空

C.text="" '设置文本框C内容为空

打开数据库连接

con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=参数.mdb;persist security info=false"

if rs.state<>adstateclosed then rs.close

rs.open "select * from 尺寸",con,1,3

if rs.eof=false and rs.bof=false then

rs.movefirst

while not rs.eof

combox.additem.rs.fields("A") '添加内容到combox中

rs.movenext

wend

end if

end sub

private combox_click()

if rs.state<>adstateclosed then rs.close

rs.open "select * from 尺寸 where A='" & combox.text & "'",con,1,3

if rs.eof=false and rs.bof=false then

B.text=rs.fields("B") '将查找到的内容分别赋给文本框B、C

C.text=rs.fields("C")

end if

end sub

5. vb导出数据到excel

Sub Macro1() Sheets.Select Sheets.Copy End Sub

6. vb读取数据写入excel

这个相当简单，首先，Excel可以直接打开txt文件。如果一定要用代码，给你一个示例：

7. vb怎么导出代码

Dim p1 As New Point(0, 0)Dim p2 As New Point(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '除工具栏全屏Dim pic As New Bitmap(p2.X, p2.Y)Using g As Graphics = Graphics.FromImage(pic)g.CopyFromScreen(p1, p1, p2)PictureBox1.Image = picEnd UsingClipboard.SetImage(PictureBox1.Image)截图到PictureBox1中显示，然后在把PictureBox1.image放到剪切板中

8. vb写入excel数据

Excel里按Alt+F11打开Vb编辑器，在里面可以建一个窗体，放入文本框，通过程序来赋值，如sheets("sheet1").range("a1").value=11。

9. vb导入excel到数据库

可以，你试一下：

Dim exlApp As Excel.Application

Dim exlBook As Excel.Workbook

Set exlApp = New Excel.Application

exlApp.Visible = True '显示Excel窗口

Set exlBook = exlApp.Workbooks.Open(App.Path + "\test.xls") 'Excel文件路径及文件名

'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格

exlApp.Sheets(1).Cells(1, 1) = "11"

exlApp.Sheets(1).Cells(1, 2) = "12"

exlApp.Sheets(1).Cells(2, 1) = "21"

exlApp.DisplayAlerts = False '不显示警告信息

exlBook.Close True '先保存修改再关闭工作簿

exlApp.Quit '关闭Excel

顶一下

(0)

0%

踩一下

(0)

0%