作者：乔山办公网日期：
返回目录：excel表格制作
'要在VB中操作Excel，需要引用e68a84e8a2ade799bee5baa6e997aee7ad94339Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号
'在你的显示按钮中加入以下代码。
'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要带双引号
'Sheet1也可以改为你的工作表的名字，要带双引号
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Dim CarWeight
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
'设置Excel为不可见
excel_App.Visible = False
'打开文件
Set excel_Book = excel_App.Workbooks.Open("地址") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例
'这里需要先将你的车号存入valuesearch变量才能搜索
'如 valuesearch = Form1.TextBox1.text
'进行搜索，存入carweight变量
CarWeight = Application.WorksheetFunction.VLookup(valuesearch, Range("C:C"), 2, False)
'然后将CarWeight赋值给你的皮重文本框
'如Form1.TextBox2.Text = CarWeight
'''''''''''''''''''''''''''''''''''
'关闭Excel文件
Set excel_sheet = Nothing
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing
Private Sub Command1_Click()
Dim Xlbook As Workbook
Dim Xlapp As Application
Dim Xlsheet As Worksheet
Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开抄excel
Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿
Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表
Print Xlsheet.Range("A1") '取数据什么的跟VBA一样知的。道
Xlbook.Close False '关闭工作簿 不保存
Set Xlapp = Nothing '释放
Set Xlbook = Nothing
End Sub
Private Sub Command1_Click()
Dim A As Integer
Dim scxls As New excel.Application
Dim scbook As excel.Workbook
Dim scsheet As excel.Worksheet
Set scxls = CreateObject("excel.application") '创建EXCEL对象
scxls.DisplayAlerts = False '不显示对话框,如果D:\2\1\3.xls文件已存在，让它不出现这个提示，就需加这段代码。
Set scbook = scxls.Workbooks.Open("D:\2\4.xls")
'Set scbook = scxls.Workbooks.Add '新建EXCEL工件簿文件
Set scsheet = scbook.Worksheets(1) '设置活动工作表
scxls.Visible = True '显示Excle
Text1.Text = scsheet.Cells(2, 2) '读取数据 并在e799bee5baa6e59b9ee7ad94336text1里显示
Text2.Text = scsheet.Cells(2, 6) '读取数据 并在text1里显示
scsheet.SaveAs ("D:\2\1\3.xls") 'excel 存档 语法:表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
scxls.Quit 'excel 关闭
End Sub
12 open file as #1 ; close 1 读取指定行百指定列的度表格中的数据，先指定excel的sheet在指定行列 很简单的说把 那可以这样 dim row as intege dim low as intege 开始做的是 .... =sheet.(i,j)3还是指定你要的内行列 ，然后赋颜色 int i int j SHEET(I,J).BACKCOLOR=RGB(0,0,0)我的是大概原理有容段时间没用vb 了但是大概就是这样把