作者:乔山办公网日期:
返回目录:excel表格制作
VB可将使用Object 数据类型对EXCEL对象进行引用。
Object 数据类型,Object 变量存储为 32 位(4
个字节)的地址形式,其为对象的引用。利用 Set 语句,声明为 Object
的变量可以赋值为任何对象的引用。注意 虽然以 Object
类型声明的变量足以适应包含对各种对象的引用,但7a686964616fe58685e5aeb9362是绑定到变量引用的对象总是在晚期(运行时)绑定。要强迫在早期(编译时间)绑定的话,须将对象的引用赋值给用特定类名称声明的变量。新建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
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object
Dim str As String
str = App.Path & "\11.xls"
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False '设置zdexcel对象回不可见答
Dim objWorkBook As Excel.Workbook
objExcel.SheetsInNewWorkbook = 1
Set objWorkBook = objExcel.Workbooks.Add
objExcel.Cells(3,4) = Text1.Text
objWorkBook.SaveAs str
objWorkBook.Close (True)
objExcel.Quit
Set objExcel = Nothing
End Sub
这个写在 thisworkbook 的代复码
Private Sub Workbook_Open() ’工作簿制打开时
UserForm2.Show 'UserForm2 是知你输入窗口的名道称
End Sub
在输入窗口里面加一个按钮 代码是
Private Sub save_bt_Click() '保存工作薄
Application.Workbooks(gzbm).Save ‘gzbm 是工作簿的名称
End Sub
'在工复程中制添加对Excel的引百用度
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成知功道!"
End Sub