vbexcel编程实例,excel中如何用vb编程操作
VB操作excel,给excel录入数据
VB可将使用Object 数据类型对EXCEL对象进行引用。
Object 数据类型,Object 变量存储为 32 位(4?
个字节)的地址形式,其为对象的引用。利用 Set 语句,声明为 Object?
的变量可以赋值为任何对象的引用。
注意 虽然以 Object?
类型声明的变量足以适应包含对各种对象的引用,但是绑定到变量引用的对象总是在晚期(运行时)绑定。要强迫在早期(编译时间)绑定的话,须将对象的引用赋值给用特定类名称声明的变量。
新建VB的EXE工程,使用如下代码在第一行第一列写入vb操作excel:
Option Explicit
? Dim xlapp As Object
? Dim xlBook As Object
? Dim xlSheet As Object
? Dim A As String
Private Sub Command1_Click()
? Set xlapp = CreateObject("excel.application")
? xlapp.Visible = True
? Set xlBook = xlapp.Workbooks.Add
? Set xlSheet = xlBook.worksheets(1)
? A = "vb操作excel"
? xlSheet.Cells(1, 1) = A
End Sub
excel中使用vb编写宏并使用
1.首先打开excel,选择功能区的视图-宏-录制宏
2.然后在弹出框中填写名称及其说明,便于多个宏时进行区分。点击确定。
3.再次点击视图-宏,选择查看宏
4.选择你刚刚添加的宏,点击编辑,就会进入vb编辑器页面
5.在编辑器中编写你想要的功能,(例如截图中的A列第一行填写1,A列第二行填写2),保存并关闭。
6.回到excel界面后,视图-宏-停止录制。这时候宏已经制作完成。
7.和第三布一样,选择视图-宏-查看宏,这时候你刚刚制作完成的宏就显示在第一个,点击执行,就会出现效果(A列第一行填写1,A列第二行填写2)。
完成。
vb的语法请自行搜索,或者留言学习交流~
vb编写excel程序
Dim XlApp as New Excel.Application '生成新的Excel实例。这是关键的步聚。
新的Excel实例可以不受系统中其他Excel进程的影响。
还有、退出时释放Excel的Application哦。就是QUIT方法执行后加上设置为Nothing。
修改如下:
Private Sub Commandaa_Click()
Dim xlApp As New Excel.Application
'这下面这个就不要了。需要在工程中引用Excel对象。
'Set xlApp = CreateObject("Excel.Application")
With xlApp
.Workbooks.Open CommonDialog9.FileName
.Workbooks(CommonDialog9.FileTitle).Sheets("输配系统气量日报").Cells(1, 1) = "165641649496161654984945"
.Workbooks(CommonDialog9.FileTitle).SaveAs "F:\ddddd.xls"
.Workbooks("ddddd.xls").close
.Quit
End With
MsgBox "您的报表已生成,并放置在F盘下,谢谢使用本软件", , "友情提示"
set xlApp=nothing
End Sub
在excel中如何用VB实现以下内容
sub main()
if cells(1,"A").value="中国" then cells(1,"B")="111"
if cells(1,"A").value="美国" then cells(1,"B")="1123"
end sub
以此为例,在Excel中调用VBA程序的操作步骤如下(Excel2007为例):
1.选择”开发工具“选项卡,点击”Visual Basic“(或者用快捷键Alt+F11)
2.出现VBA编辑界面,注意看左侧,选择需要运行代码的工作表,此例为Sheet1;双击进入Sheet1相关程序编辑界面
3.在程序编辑区域,复制上上述代码
4.点击上面的三角号,运行程序
5.关闭VBA界面,返回工作表,就可以看到程序运行结果,如下图:
6.如果再次运行程序,可以用快捷键Alt+F8(或者步骤1中的”宏“),出现如下图界面,选择要运行的宏,点击执行即可。
excel里怎么利用vb写出个编程,计算出所选区域单元格中最小数
Sub?计算()
MsgBox?Application.Min(Selection)
End?Sub
具体的步骤:
1、打开Excle的vbe。
2、把上述的代码加入的vbe中。
3、返回到Excle的界面,选择单元格区域。单击“宏-计算-执行”
4、结果就会显示