vb导出数据到excel下载(vb导出excel格式保存)

1. vb导出excel格式保存

建一个文件夹，把目标txt文件和excel文件放入其中，在excel的宏编辑器中写入以下代码，有些地方可根据你的实际情况做相应改动：

Sub import_from_txt()

Dim file_name As String, my_path As String

Dim lines, cols

Dim i As Integer, j As Integer, k As Integer, q As Integer

Application.ScreenUpdating = False

Worksheets("Sheet1").Range("A1:Z65536").ClearContents

my_path = ThisWorkbook.Path

file_name = "test.txt"

'读取文件

Open my_path & "\" & file_name For Input As #1

lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)

Close #1

k = UBound(lines) + 1 '文件的行数

'遍历每一行

For i = 1 To k

cols = Split(lines(i - 1), ",") '以逗号作为分隔，将每行字符分割，分隔符可根据实际情况自己修改

q = UBound(cols) + 1 '分隔成的列数

For j = 1 To q '遍历该行的每一列

Worksheets("Sheet1").Cells(i, j) = cols(j - 1) '输出到表格中

Next

Next

MsgBox ("文件" & file_name & "读取完成,共" & k & "行")

Application.ScreenUpdating = True

End Sub

2. vba导出表格

1. 打开电脑后，找到准备好的excel表格打开。

2. 依次选择上方菜单栏的“开发工具”---“Visual Basic”。

3. 进入VBA编辑界面中，双击左侧数据所在的工作表，将在右侧代码编辑区显示。

4. 接下来输入代码：

例如：sub 鱼木混猪()

msgbox range("A65536").end(3).row

end sub

代码的意思即将光标定位在A65536单元格中，按下Ctrl+向上箭头组合键，自动选择最后一个非空行，进而获得行号。

代码输入好之后，选择上方的“运行子程序”。

5. 我们就得到了A列最后一个非空行的行号。

以上就是怎么利用Excel表格中的VBA得到最大非空行数的具体操作步骤。

3. vba导出文件

文本是.text

比如你在excel [a1]输入了公式=3+4 [a1]显示7

vba 运行如下code

a=[a1]

j = [a1].Value

i = [a1].Formula

k = [a1].Text

a 跟j返回的值是一样的 返回7 因为vba默认是返回value属性

i 为formula返回 "=3+4"

k 为text 返回 string属性的 "7"

4. vb数据保存为xls文件

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，

然后打开Excel文件读数据

Dim scxls As Excel.Application

Dim scbook As Excel.Workbook

Dim scsheet As Excel.Worksheet

‘Set scxls = CreateObject("excel.application")

‘Set scbook = scxls.Workbooks.Add

Set scbook = scxls.Workbooks.open("c:\1.xls")

Set scsheet = scbook.Worksheets(1)

‘scsheet.Cells(1, 2) = "1111" ’写入数据

a=scsheet.Cells(1, 2) '读取数据

Set scbook = Nothing

Set scxls = Nothing

‘scxls.Visible = True ’显示Excle

数据较多，且有规律可循时，请使用循环语句

5. vb怎么保存为exe

vba能解决Excel使用者90%以上的需求。其他语言能处理的Excel工作，vba100%能处理，其他语言不能处理的，vba多数能处理。其他语言处理Excel，其实是使用Excel的COM接口开发或者是第三方的Excel库开发。前者的本质就是vba，只不过换种语言，而后者则有不同的选择，但这些库也会有各种的问题存在，兼容问题、bug、功能不全、使用不方便等。

vba的优势：

1.不需要额外配置编程环境，正常情况下装了Excel都会有。

2.有宏录制功能。宏录制的功能对于初学者来说是一个非常有用的，能了解到陌生API的使用方式。

3.能够调用Windows的API、其他语言编译的dll。除了不能编译成独立的EXE，vb6能做的，vba基本都能做。

4.网上有大量充足的例子，学习起来相对容易。

5.调试相对简单。

vba的劣势:

1.版本老旧、操作反人类的IDE。vba的编辑器真的非常难受。

2.宽松的语法。我刚接触vba的时候，我是认为宽松的语法是非常舒服的。但其实对于编程的学习是不利的，特别在适应vb6语法以后再去学习c系列语言时，过渡时会有点难受。

3.性能问题。vba的处理效率是很低的，进行大量数据处理时间会非常非常长。

4.维护问题。代码是保存在Excel文件中，当这个Excel有一个副本时，相当于代码衍生了一个分支，所以代码维护是非常累的。如果需求比较复杂、代码量较大时，别犹豫，果断拒绝vba。

vba的推荐使用人群及适用需求

1.vba非常适合非专业的工具开发者使用。假如你是审计、会计、运营、策划等经常需要使用Excel来处理数据，希望能通过开发简单的程序来减轻日常工作，推荐你学习vba。

2.工具是一次性或者不需要经常增减需求，推荐使用vba快速开发。

其实我不推荐大家去学习Python，因为如果只是为了日常处理Excel，vba足矣。学习难度真的不大，遇到问题百度一下就能解决。但学习vba我认为必须要以需求推动学习。也就是你要带着目的来学习，跟着所谓的教程盲目地从第一章学到最后一章，到最后也许你都不知道自己学了什么。

最好的方法是：

1.先搞清要实现什么需求。

2.分析这些需求要使用什么知识（例如：单元格格式修改/边框修改/数据计算...）

3.搜寻相应的内容，并学习。

最后补充一句：vba也是编程，编程这东西跟以前学习数学一样，有的同学会容易理解一学就会，有的同学可能刚开始的时候懵逼但听老师讲还有自己做题慢慢就学会了，但有的同学也许无论怎么学都是一脸懵逼。无论你学的是vb、c、c#、c++、java还是python，学习的时候都一样要学编程的基础知识，假如对编程一脸懵逼，无论是vba还是python你都一样是一脸懵逼。

6. 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

Next

Next

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

7. 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)

8. 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

9. vb导出到excel

电脑上新建Excel文件，例如命名为“Excel 工作表”~！！！

双击“Excel 工作表”，打开excel文件~！！！

键盘上按下Alt+F11，即可弹出VB的编程界面

VB编程界面的上方就是工具栏，和一般工具栏分布一样

VB编程界面的左上方就是所有Sheet的列表

VB编程界面的左下方就是某一Sheet的详细信息

VB编程界面的正中间就是编程的主要区域