作者:乔山办公网日期:
返回目录:excel表格制作
Dim excel As Object
Set excel = CreateObject("excel.application") '设定 excel API
'--------------这上知面可不看 照抄
excel.workbooks.Open ("C:\book.xls") 'P.s请先自己道创立 'excel 开启
excel.Visible = True 'excel 显示专 or 隐藏 (True of False
excel.cells(1,2)="测试"
text1 = excel.cells(1,2) 'text1 读取属
excel.ActiveWorkbook.Save 'excel 存档
excel.quit 'excel 关闭
Private Sub Form_Load()
Text1.Text = App.Path & "\123.xls"
Text2.Text = App.Path & "\123.mdb"
Text3.Text = "sheet1"
Text4.Text = "sheet1"
Data1.DatabaseName = App.Path & "\123.mdb"
End Sub
Private Sub Command1_Click()
Dim db As Database
Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String
AccessPath = Text2.Text '数据库路径
excelpath = Text1.Text '电子表格路经
AccessTable = Text4.Text '数据库内表格
sheet = Text3.Text '电子表格内工作表
Set db = OpenDatabase(excelpath, True, False, "Excel 5.0") '打开7a686964616fe4b893e5b19e334电子表格文件
SQL = ("Select * into [;database=" & AccessPath & "]." & AccessTable & " FROM [" & sheet & "$]")
db.Execute (SQL) '将电子表格导入数据库
Data1.RecordSource = "sheet1"
Data1.Refresh
DBGrid1.Refresh '显示电子表格导入到数据库的数据
End Sub
上面的是把EXCEL读取到数据库中,你做点修改就行了.一个Data控件.
Sub aa()
Paths = "D:\excel" '某个度文件问夹路径
For Each myfile In CreateObject("scripting.FileSystemObject").GetFolder(Paths).Files '遍历某个文件夹里面的所有Excel文件
With Workbooks.Open(myfile) '打开当前遍答历的Excel
a = .Sheets(1).[a10].Value '读取打开的Excel第一内个工作表容A10的值
.Sheets(1).[a11].Value = "aaaaaaa" '改写打开的Excel第一个工作表A11的值
MsgBox a
.Close False '关闭当前遍历Excel
End With
Next
End Sub