vb的数据库导入excel文件路径(vb数据库导出excel)

1. vb数据库导出excel

可对Ole控件关联对象的Excel表格的单元格的Value属性赋值来写入VB已读到的数据。

Value属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。

以下是实现代码：

2. vb 导出excel

VB操作EXCEL

全面控制 Excel

首先创建 Excel 对象，使用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1) 显示当前窗口：

ExcelID.Visible := True;

2) 更改 Excel 标题栏：

ExcelID.Caption := \'应用程序调用 Microsoft Excel\';

3) 添加新工作簿：

ExcelID.WorkBooks.Add;

4) 打开已存在的工作簿：

ExcelID.WorkBooks.Open( \'C:\\Excel\\Demo.xls\' );

5) 设置第2个工作表为活动工作表：

ExcelID.WorkSheets[2].Activate;

或 ExcelID.WorkSheets[ \'Sheet2\' ].Activate;

6) 给单元格赋值：

ExcelID.Cells[1,4].Value := \'第一行第四列\';

7) 设置指定列的宽度（单位：字符个数），以第一列为例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分页符：

ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;

参考代码：ActiveSheet.HPageBreaks(1).Location = Range("A22")

10) 在第8列之前删除分页符：

ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度：

ExcelID.ActiveSheet.Range[ \'B3:D4\' ].Borders[2].Weight := 3;

1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / )

12) 清除第一行第四列单元格公式：

ExcelID.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性：

ExcelID.ActiveSheet.Rows[1].Font.Name := \'隶书\';

ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelID.ActiveSheet.Rows[1].Font.Bold := True;

ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：

ExcelID.ActiveSheet.PageSetup.CenterHeader := \'报表演示\';

b.页脚：

ExcelID.ActiveSheet.PageSetup.CenterFooter := \'第&P页\';

c.页眉到顶端边距2cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

d.页脚到底端边距3cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.顶边距2cm：

ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm：

ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左边距2cm：

ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm：

ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中：

ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;

j.页面垂直居中：

ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

k.打印单元格网线：

ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作：

a.拷贝整个工作表：

ExcelID.ActiveSheet.Used.Range.Copy;

b.拷贝指定区域：

ExcelID.ActiveSheet.Range[ \'A1:E2\' ].Copy;

c.从A1位置开始粘贴：

ExcelID.ActiveSheet.Range.[ \'A1\' ].PasteSpecial;

d.从文件尾部开始粘贴：

ExcelID.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Insert;

b. ExcelID.ActiveSheet.Columns[1].Insert;

17) 删除一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Delete;

b. ExcelID.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表：

ExcelID.ActiveSheet.PrintPreview;

19) 打印输出工作表：

ExcelID.ActiveSheet.PrintOut;

20) 工作表保存：

If not ExcelID.ActiveWorkBook.Saved then

ExcelID.ActiveSheet.PrintPreview

End if

21) 工作表另存为：

ExcelID.SaveAs( \'C:\\Excel\\Demo1.xls\' );

22) 放弃存盘：

ExcelID.ActiveWorkBook.Saved := True;

23) 关闭工作簿：

ExcelID.WorkBooks.Close;

24) 退出 Excel：

ExcelID.Quit;

25) 设置工作表密码:

ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

26) EXCEL的显示方式为最大化

ExcelID.Application.WindowState = xlMaximized

27) 工作薄显示方式为最大化

ExcelID.ActiveWindow.WindowState = xlMaximized

28) 设置打开默认工作薄数量

ExcelID.SheetsInNewWorkbook = 3

29) \'关闭时是否提示保存(true 保存；false 不保存)

ExcelID.DisplayAlerts = False

30) 设置拆分窗口,及固定行位置

ExcelID.ActiveWindow.SplitRow = 1

ExcelID.ActiveWindow.FreezePanes = True

31) 设置打印时固定打印内容

ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

32) 设置打印标题

ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ""

33) 设置显示方式(分页方式显示)

ExcelID.ActiveWindow.View = xlPageBreakPreview

34) 设置显示比例

ExcelID.ActiveWindow.Zoom = 100

35) 让Excel 响应 DDE 请求

Ex.Application.IgnoreRemoteRequests = False

用VB操作EXCEL

Private Sub Command3_Click()

On Error GoTo err1

Dim i As Long

Dim j As Long

Dim objExl As Excel.Application \'声明对象变量

Me.MousePointer = 11 \'改变鼠标样式

Set objExl = New Excel.Application \'初始化对象变量

objExl.SheetsInNewWorkbook = 1 \'将新建的工作薄数量设为1

objExl.Workbooks.Add \'增加一个工作薄

objExl.Sheets(objExl.Sheets.Count).Name = "book1" \'修改工作薄名称

objExl.Sheets.Add , objExl.Sheets("book1") ‘增加第二个工作薄在第一个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book2"

objExl.Sheets.Add , objExl.Sheets("book2") ‘增加第三个工作薄在第二个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book3"

objExl.Sheets("book1").Select \'选中工作薄<book1>

For i = 1 To 50 \'循环写入数据

For j = 1 To 5

If i = 1 Then

objExl.Selection.NumberFormatLocal = "@" \'设置格式为文本

objExl.Cells(i, j) = " E " & i & j

Else

objExl.Cells(i, j) = i & j

End If

objExl.Rows("1:1").Select \'选中第一行

objExl.Selection.Font.Bold = True \'设为粗体

objExl.Selection.Font.Size = 24 \'设置字体大小

objExl.Cells.EntireColumn.AutoFit \'自动调整列宽

objExl.ActiveWindow.SplitRow = 1 \'拆分第一行

objExl.ActiveWindow. SplitColumn = 0 \'拆分列

objExl.ActiveWindow.FreezePanes = True \'固定拆分 objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" \'设置打印固定行

objExl.ActiveSheet.PageSetup.PrintTitleColumns = "" \'打印标题 objExl.ActiveSheet.PageSetup.RightFooter = "打印时间: " & _

Format(Now, "yyyy年mm月dd日 hh:MM:ss")

objExl.ActiveWindow.View = xlPageBreakPreview \'设置显示方式

objExl.ActiveWindow.Zoom = 100 \'设置显示大小

objExl.ActiveSheet.PageSetup.Orientation = xlLandscape ‘设置打印方向(横向)

\'给工作表加密码

objExl.ActiveSheet.Protect "123", DrawingObjects:=True, _

Contents:=True, Scenarios:=True

objExl.Application.IgnoreRemoteRequests = False

objExl.Visible = True \'使EXCEL可见

objExl.Application.WindowState = xlMaximized \'EXCEL的显示方式为最大化

objExl.ActiveWindow.WindowState = xlMaximized \'工作薄显示方式为最大化

objExl.SheetsInNewWorkbook = 3 \'将默认新工作薄数量改回3个

Set objExl = Nothing \'清除对象

Me.MousePointer = 0 \'修改鼠标

Exit Sub

err1:

objExl.SheetsInNewWorkbook = 3

objExl.DisplayAlerts = False \'关闭时不提示保存

objExl.Quit \'关闭EXCEL

objExl.DisplayAlerts = True \'关闭时提示保存

Set objExl = Nothing

Me.MousePointer = 0

End Sub

3. vb数据导出到excel

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbooks.open("c:\1.xls"

)Set scsheet = scbook.Worksheets(1)‘scsheet.Cells(1, 2) = "1111" ’写入数据a=scsheet.Cells(1, 2) '读取数据Set scbook = NothingSet scxls = Nothing‘scxls.Visible = True ’显示Excle数据较多，且有规律可循时，请使用循环语句

4. vb导入数据库文件

vb把数据写入vf数据库要采用了远程访问技术，确定接口和远程数据对象，是一种新建立的数据访问模式，具有数据模型简单的特点，对数据的访问更加灵活，能访问的数据类型也会更加丰富，利用ADO对象访问vf，数据库，添加控件属性，并访问数据库，用DIm函数导入数据，到vf数据库，获得数据源并打开数据连接，你数据QQ可以直接选择将数据写入数据库，也可以通过cyTXT文件进行中转。

5. vb怎么导出文件

Fori=1ToMe.ListView1.ListItems.Count-1xl.Range("A"&i+1).Value=Me.ListView1.ListItems(i).Textxl.Range("B"&i+1).Value=Me.ListView1.ListItems(i).SubItems(1)xl.Range("C"&i+1).Value=Me.ListView1.ListItems(i).SubItems(2)xl.Range("D"&i+1).Value=Me.ListView1.ListItems(i).SubItems(3)xl.Range("E"&i+1).Value=Me.ListView1.ListItems(i).SubItems(4)xl.Range("F"&i+1).Value=Me.ListView1.ListItems(i).SubItems(5)xl.Range("G"&i+1).Value=Me.ListView1.ListItems(i).SubItems(6)xl.Range("H"&i+1).Value=FormatStr(Me.ListView1.ListItems(i).SubItems(7))Nextixl.Visible=True

6. vb导出excel格式保存

Sub 数据导出()

' 数据导出宏

Workbooks.Open Filename:="F:\复制数据表名.xls"

'表格名

Sheets("表格名").Select

Cells.Select

Selection.Clear

Windows("Sheet1.xlsm").Activate

Sheets("表格名").Select

Cells.Select

Selection.Copy

Windows("复制数据表名.xls").Activate

Cells.Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Windows("Sheet1.xlsm").Activate

Application.CutCopyMode = False

Selection.Copy

Windows("复制数据表名.xls").Activate

Cells.Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

End Sub

7. vb如何导入数据库

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)

8. vb把access数据库导出excel

建议Excelhome论坛问，那里可以上传附件，大神看见了会直接给你改一个。Sub 导入数据() Workbooks.Open Filename:= _ "C:\Users\Administrator\Desktop\新建文件夹 (2)\新建 Microsoft Excel 工作表.xls" Range("A1:BK2359").Select Selection.Copy Windows("Book1.xlsx").Activate Range("B2").Select ActiveSheet.Paste Workbooks("新建 Microsoft Excel 工作表.xls").CloseEnd Sub自己看看改改吧

9. vb读取数据库

Function ConnectToDataBase() as Boolean ’定义一个连接数据库的函数，返回值为连接成功与否 On Error GoTo DealErr Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;" ConnectToDataBase=True MsgBox "连接数据库成功！" Exit FunctionDealErr: ConnectToDataBase=False MsgBox "连接数据库失败！" EndEndFunction

10. vb程序怎么导出

这个有一个非常简单的方法，在VB里面给EXCEL导出的数据里面可以在身份证号前面加一个单引号，系统就默认是字符串了。例如：身份证号为:430123123412121234SFZ='430123123412121234再SFZ赋值给EXCEL单元格。

顶一下

(0)

踩一下

(0)

相关评论

我要评论

vb的数据库导入excel文件路径(vb数据库导出excel)

1. vb数据库导出excel

2. vb 导出excel

3. vb数据导出到excel

4. vb导入数据库文件

5. vb怎么导出文件

6. vb导出excel格式保存

7. vb如何导入数据库

8. vb把access数据库导出excel

9. vb读取数据库

10. vb程序怎么导出

excel一直在访问打印机(为什么打开excel总是出现访问打印机)

软件导出excel失败的原因(excel导出失败怎么办)

行政excel字体规范(政府excel表格字体要求)

如何查看excel的打开记录(怎么查看excel打开记录)

excel行高不能超过409(excel解除限定行高409)

最小二乘法excel(最小二乘法计算器在线)

为什么苹果excel打不开(苹果系统excel无法打开)

excel怎么换下一页(表格怎么切换下一页)

mac能用几年(mac能用wallpaper engine吗)

excel文本溢出(excel公式的结果产生溢出)