Question

我正在尝试在Access for my Excel电子表格中创建包含超链接的链接表。完成向导后，我的表在任何地方都没有超链接。字段类型自动设置为短文本。

有没有人知道修复或解决方法？

Answer 1

我认为你的术语有点混乱，但我猜你是指这个概念，对吧。

Option Compare Database
Option Explicit

Private Sub Command0_Click()

     'Macro Loops through the specified directory (strPath)
     'and links ALL Excel files as linked tables in the Access
     'Database.

    Const strPath As String = "C:\your_path_here\" 'Directory Path
    Dim strFile As String 'Filename
    Dim strFileList() As String 'File Array
    Dim intFile As Integer 'File Number

     'Loop through the folder & build file list
    strFile = Dir(strPath & "*.csv")
    While strFile <> ""
         'add files to the list
        intFile = intFile + 1
        ReDim Preserve strFileList(1 To intFile)
        strFileList(intFile) = strFile
        strFile = Dir()
    Wend
     'see if any files were found
    If intFile = 0 Then
        MsgBox "No files found"
        Exit Sub
    End If
     'cycle through the list of files & link to Access
    For intFile = 1 To UBound(strFileList)
        DoCmd.TransferText acLinkDelim, , _
        strFileList(intFile), strPath & strFileList(intFile), True, ""
         'Check out the TransferSpreadsheet options in the Access
         'Visual Basic Help file for a full description & list of
         'optional settings
    Next
    MsgBox UBound(strFileList) & " Files were Linked"

End Sub

与Excel文件相比，使用更易于使用的CSV文件进行练习可能更好。要遍历文件夹中的Excel文件，并链接到每个文件，只需更改一行代码即可。

DoCmd.TransferSpreadsheet acLink, , "Your table name","Path to your workbook file", True, "Sheet1!Ran

使用超链接将访问表链接到Excel

1 个答案: