Office中国论坛/Access中国论坛

标题: 在EXCEL中如何设置动态数据源链接到同目录下的ACCESS表中？ [打印本页]

作者: aydl1014 时间: 2004-1-10 19:10
提示: 作者被禁止或删除内容自动屏蔽

作者: duzili 时间: 2004-1-10 20:37
思路：
先删除链接表sheet1,在重新创建一个链接表，设置这个新表的Connect和SourceTableNam属性。
例子如下：
[attach]3119[/attach]

作者: duzili 时间: 2004-1-10 20:42
对不起，搞错了！

作者: duzili 时间: 2004-1-10 21:36
在excel的workbook_open中加入以下代码：
Sub 自动更新()
'
' 宏1 Macro
' duzili 记录的宏 2004-1-10
'

'
Sheet1.Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access 97 Database;DBQ=" & ThisWorkbook.Path & "\学生成绩.mdb;DefaultDir=" & ThisWorkbook.Path & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048

ageTimeout=5;" _
      )), Destination:=Range("A1"))
      .CommandText = Array( _
      "SELECT 输入EXCEL.全部学号, 输入EXCEL.学号, 输入EXCEL.姓名, 输入EXCEL.政治, 输入EXCEL.语文, 输入EXCEL.数学, 输入EXCEL.英语, 输入EXCEL.体育, 输入EXCEL.素描, 输入EXCEL.色彩, 输入EXCEL.图案, 输入EXCEL.字" _
      , "体, 输入EXCEL.电脑设计" & Chr(13) & "" & Chr(10) & "FROM 输入EXCEL 输入EXCEL" & Chr(13) & "" & Chr(10) & "ORDER BY 输入EXCEL.全部学号")
      .Name = "查询来自 MS Access 97 Database"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = True
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .PreserveColumnInfo = True
      .Refresh BackgroundQuery:=False
End With
Selection.QueryTable.Refresh BackgroundQuery:=False
  Sheet2.Select
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)