vb创建excel表单（vb菜单）

本篇文章给大家谈谈vb创建Excel表单，以及vb菜单对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。 今天给各位分享vb创建excel表单的知识，其中也会对vb菜单进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、vb 关于生成excel表格
• 2、vb如何新建excel表
• 3、用vb怎么做excel表格
• 4、用VB制作excel表格
• 5、如何用VB创建并打开一个EXCLE表格
• 6、VB怎么样新建EXCEL工作薄？

vb 关于生成excel表格

材料/工具：电脑、VB 6.0软件

1、首先，我们需要点击文件菜单栏按钮。

2、然后，我们点击生成EXE按钮。

3、接下来，我们点击保存路径。

4、然后，我们输入我们想要保存的文件名。

5、最后，我们点击确定按钮。

6、然后，我们便可以看到，在桌面生成了Excel表格了。

vb如何新建excel表

分类: 电脑/网络 程序设计 其他编程语言
问题描述:

目前我只看到，用vb能够对已存在的excel表进行操作，读取和写入。那么，如果excel表不存在，需要新建一个呢？在vb中如何实现？注意：我只需要新建excel表如何实现的代码，其他的代码不需要，我也不是菜鸟。问题一旦采用就追加100分。

解析:

一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open("文件名")
这种语法同样要求excel已经存在才能操作。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook

Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet

Set xlApp = New Excel.Application

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets.Add

xlSheet.Cells(1, 1) = "测试" '写入内容

xlBook.SaveAs ("FILENAME") '保存文件

xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。

用vb怎么做excel表格

EXCEL函数公式直接操作的是数组vb创建excel表单，完全可以达到循环的目的vb创建excel表单，可以理解为是封装了的循环函数，下面举两个例子来说明vb创建excel表单：

问题1: 条件求和 公式SUMIF，求序号大于3的数据的和。

a. 用函数公式就非常简单在C2单元格输入=SUMIF(A2:A6,"3",B2:B6)就能行到结果42

b. 如果用VBA就复杂多了，代码如下vb创建excel表单：

set sh = ActivateSheetsum = 0 # 保存求和的结果For i = 2 to 6    If sh.cells(i,1)3 Then        sum = sum + sh.cells(i,2)    End ifNext i

问题2：条件查找公式VLOOKUP，依次把B列的名字在A列中查找，如果找到就标记为TRUE，如果没有找到就标记为FALSE.

a. 函数就非常简单了，只需要在C2输入公式=IF(ISERROR(VLOOKUP(B2,A:A,1,FALSE)),FALSE,TRUE)，然后下拉下C4

b. VBA代码就比较复杂了，如下：

  
set sh = ActivateSheetFor i=2 to 4    isexist = FALSE    For j=2 to 4        If sh.cells(i,2) = sh.cells(j,1) Then            isexist = TRUE        End If    Next j    sh.cells(i,3) = isexistNext i

用VB制作excel表格

添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异)
然后就可以用这个来编程啦
Dim xlapp As Excel.Application ‘代表excel程序
Dim wkBook As Excel.Workbook '代表excelworkbook（也就是excel工作簿文件 .xls .xlsx)
Dim wkSheet As Excel.Worksheet '代表excel的工作页
xlapp.Application.EnableEvents = False '禁止宏等提示的运行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)'wkBook对象,把ExcelFileName替换为你的真实文件 比如 app.path "\" "百家姓.xls"
Set wkSheet = wkBook.Worksheets(1) '选中某个sheet用工作页名字(Sheet1,Sheet2...) or 序号

如何用VB创建并打开一个EXCLE表格

Dim Application As Object
Dim WorkBook As Object
Dim Sheet As Object
Set Application = CreateObject("Excel.Application") '建立EXCEL对象
Set WorkBook = Application.Workbooks.Add() '建立一个新的Excel文档
Set Sheet = WorkBook.Sheets.Add() '建立一个新表单
Sheet.Cells(1, 1).Value = "Hello,Excel!" '填写表单的第一行第一列的值
Application.Visible = True 'EXCEL使之可见

VB怎么样新建EXCEL工作薄？

Set xlsApp = CreateObject("Excel.Application")
Set xlBook = xlsApp.Workbooks.Add
Set xlsheet = xlBook.Worksheets.add
xlSheet.Cells(1, 1) = 1111 '给单元格（row,col）赋值
a = xlSheet.Cells(1, 1)
xlBook.SaveAs "E:\工作薄.xls"
xlsapp.quit 关于vb创建excel表单和vb菜单的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。 vb创建excel表单的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb菜单、vb创建excel表单的信息别忘了在本站进行查找喔。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。