作者：乔山办公网日期：
返回目录：excel表格制作
1，首先我们是用第一个表中竖列的信息填第二个表，所以要用函数vlookup来完成。现在工程B下面输入等于号“=”和函数“vlookup”，再输入括号“（）”，再点击“工程B”，再输入“,”,这个逗号一定要是输入法在英文状态下的。
2，点击进入第一张有完整数据的表zhidao，选中A2：B10。
3，返回第二张表，我们可以看到，红笔画的地方名字不对，我们第一张表的名字是叫“表单一”而这里显示的是第二张表的名字，我们需要把这里的名字改成第一张表的名字。
4，这是我们把表的名字改后的情况，注意名字后面有感叹号“！”，这个感叹句也必须是英文的感叹号。
5，我们再输入“,2”,这里“2”的意思是我们在“表单一”的第二列取数据。
6，再输入“，0”。然专后我们对函数进行固定，在“A”，“2”，“B”，“10”前面分别加上“$”
7，点击“enter”键后我们发现出现的不是几年几月几日，这是因为我们单元格的格式不对,先不要管格式。
8，使箭头变成十字架的形状再向右拉，进行填充。
9，点击鼠标右键，在出现的列表里选择“设置单元格格式”。
10，将单元格格式改为日期格式。
11，这就是我们改完格式之属后的结果。
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) '读取数据7a686964616fe78988e69d83336 并在text1里显示
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
下载扩展库百 xlrd 读excle xlwt 写excle 直接在百度上搜就能下载 下载后度使用 import xlrd 就可以读excle文件了 打开文件： xls = xlrd.open_workbook(fileName) 选择回表：括号答内为第几个表 sheet = xls.sheets()[0] 获取列：括号内为第几列的数据
我只有VB 2005，但是道理一样的！
首先通过菜单[项目] -- [添加e799bee5baa6e79fa5e98193e4b893e5b19e364引用]，选择[COM]选项卡，选择“Microsoft Excel XX.0 Object Library”，[确定]。
其中：XX.0 ，视你安装的Office版本而定。
我给你弄了个比较详细例子：你自己根据需要，修改吧！
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppXls As Microsoft.Office.Interop.Excel.Application '声明Excel对象
Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook '声明工作簿对象
Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet '声明工作表对象
AppXls = New Microsoft.Office.Interop.Excel.Application '实例化Excel对象
AppXls.Workbooks.Open("C:\学生成绩.xls") '打开已经存在的EXCEL文件
AppXls.Visible = False '使Excel不可见
'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook '实例化工作簿对象
'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet '实例化工作表对象
AppWokBook = AppXls.Workbooks(1) 'AppWokBook对象指向工作簿"C:\学生成绩.xls"
AppSheet = AppWokBook.Sheets("Sheet1") 'AppSheet对象指向AppWokBook对象中的表“Sheet1”，即："C:\学生成绩.xls"中的表“Sheet1”
'下面举一些例子：
'1、如果不声明工作表对象 AppSheet ，那么应用AppWokBook对象中的表“Sheet1”的语句就是：AppWokBook.Sheets("Sheet1")
'2、如果不声明工作簿对象 AppWokBook ，那么应用"C:\学生成绩.xls"中的表“Sheet1”的语句就是：AppXls.Workbooks("C:\学生成绩.xls").Sheets("Sheet1")
'要读取数据表"Sheet1"中的单元格“A1”的值，到变量S1里
Dim S1 As String
'方法一
S1 = AppXls.Workbooks(1).Sheets("Sheet1").Range("A1").Value
MsgBox(S1)
'方法二
S1 = AppWokBook.Sheets("Sheet1").Range("A1").Value
MsgBox(S1)
'方法三
S1 = AppSheet.Range("A1").Value
MsgBox(S1)
'把数据写入到单元格“H2”，就是第2行第8个单元格
'方法一
AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value = "您好！"
S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value '为了验证，读取并显示它
MsgBox(S1)
'方法二
AppWokBook.Sheets("Sheet1").Cells(2, 8).Value = "你们好！"
S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value '为了验证，读取并显示它
MsgBox(S1)
'方法二
AppSheet.Cells(2, 8).Value = "大家好！"
S1 = AppSheet.Cells(2, 8).Value '为了验证，读取并显示它
MsgBox(S1)
'使用完毕必须关闭EXCEL，并退出
AppXls.ActiveWorkbook.Close(SaveChanges:=True)
AppXls.Quit()
'完成此程序，打开EXCEL检查，可以看到在“Sheet1”表的单元格“H2”里是文本“大家好！”
End Sub