Excel中单元格的属性（用于VBScript）？

单元格在Excel中有哪些属性？我在网上搜索，但我能找到的最好的东西是。但是，这不包括单元格的列表属性，如

.Font

、

.Value

等

我正试图找到一种方法来获取VBScript中单元格中的超链接。单元格的值与链接的值不同。我尝试了

单元格（1,1）.范围（“A1”）.超链接（1）.地址
和
单元格（1,1）.超链接
，但两者都不起作用

另外，是否有在VBScript中使用Excel的详细文档？我使用了MSDN和W3Schools文档，但它们都没有任何Excel特定的信息。我发现在很多地方，Excel在VBA或VB中的使用与在VBScript中的使用不同

非常感谢你
 根据，
单元格
是一个
范围
对象。您可以引用特定单元格（项目）或单元格范围，但单个单元格只是
范围
对象的特定实例

因此，您应该参考以下列表

关于获取单元格中的超链接。如果超链接位于A1中，则可以使用

Worksheets(1).Cells(1, 1).Hyperlinks(1).Name

下面是有关的附加文档。文档看起来很稀疏，但是如果单击左侧菜单中“Hyperlink Object”的箭头，您将看到所有属性和方法。
根据，
单元格
是一个
范围
对象。您可以引用特定单元格（项目）或单元格范围，但单个单元格只是
范围
对象的特定实例

因此，您应该参考以下列表

关于获取单元格中的超链接。如果超链接位于A1中，则可以使用

Worksheets(1).Cells(1, 1).Hyperlinks(1).Name

下面是有关的附加文档。文档看起来很稀疏，但如果单击左侧菜单中“Hyperlink Object”的箭头，您将看到所有属性和方法。
我认为您缺少的部分是如何在VBScript中访问Excel对象。在VbScript中访问Excel对象的方法是在脚本中调用以下内容

Set myxlObject = CreateObject("Excel.Application")
Set myxlApplication = myxlObject.Application

有了它，您将能够实际执行在VBA中完成但现在在vbScript中完成的任何操作，然后您将需要调用该应用程序对象来访问其他对象。例如：

Set myWorkBook = myxlApplication.Workbooks.Open( "C:\Wherever\Whatever.xlsx" )

有关可通过此“Excel.Application”对象访问的属性和方法的更多信息，请参阅本页：

以下脚本将工作表上特定范围内的超链接的名称和地址输出到控制台

Set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")

Set myxlObject = CreateObject("Excel.Application")
Set myxlApplication = myxlObject.Application
Set myWorkBook = myxlApplication.Workbooks.Open( curDir & "\24048353.xlsx" ) 'Change to the actual workbook that has the Hyperlinks
Set myWorkSheet = myWorkBook.Worksheets(1)

myxlApplication.Visible = False

Set rng = myWorkSheet.Range("A2:A3") 'Change to the actual range that has the Hyperlinks

For Each row In rng.Rows

    myLinkName = row.Cells(1, 1).Hyperlinks(1).Name
    myLinkURL = row.Cells(1, 1).Hyperlinks(1).Address

    wscript.echo myLinkName & " " & myLinkURL

Next

使用

此脚本更实际的用途可能是将结果输出到如下文件：

Set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")

Set myLinksFile = fso.OpenTextFile( curDir & "\mylinks.txt", 8, True)

Set myxlObject = CreateObject("Excel.Application")
Set myxlApplication = myxlObject.Application
Set myWorkBook = myxlApplication.Workbooks.Open( curDir & "\24048353.xlsx" ) 'Change to the actual workbook that has the Hyperlinks
Set myWorkSheet = myWorkBook.Worksheets(1)

myxlApplication.Visible = False

Set rng = myWorkSheet.Range("A2:A3") 'Change to the actual range that has the Hyperlinks

For Each row In rng.Rows

    myLinkName = row.Cells(1, 1).Hyperlinks(1).Name
    myLinkURL = row.Cells(1, 1).Hyperlinks(1).Address

    mylinksFile.WriteLine myLinkName & ", " & myLinkURL

Next

mylinksFile.Close

我认为您缺少的部分内容是如何在VBScript中访问Excel对象。在VbScript中访问Excel对象的方法是在脚本中调用以下内容

Set myxlObject = CreateObject("Excel.Application")
Set myxlApplication = myxlObject.Application

有了它，您将能够实际执行在VBA中完成但现在在vbScript中完成的任何操作，然后您将需要调用该应用程序对象来访问其他对象。例如：

Set myWorkBook = myxlApplication.Workbooks.Open( "C:\Wherever\Whatever.xlsx" )

有关可通过此“Excel.Application”对象访问的属性和方法的更多信息，请参阅本页：

以下脚本将工作表上特定范围内的超链接的名称和地址输出到控制台

Set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")

Set myxlObject = CreateObject("Excel.Application")
Set myxlApplication = myxlObject.Application
Set myWorkBook = myxlApplication.Workbooks.Open( curDir & "\24048353.xlsx" ) 'Change to the actual workbook that has the Hyperlinks
Set myWorkSheet = myWorkBook.Worksheets(1)

myxlApplication.Visible = False

Set rng = myWorkSheet.Range("A2:A3") 'Change to the actual range that has the Hyperlinks

For Each row In rng.Rows

    myLinkName = row.Cells(1, 1).Hyperlinks(1).Name
    myLinkURL = row.Cells(1, 1).Hyperlinks(1).Address

    wscript.echo myLinkName & " " & myLinkURL

Next

使用

此脚本更实际的用途可能是将结果输出到如下文件：

Set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")

Set myLinksFile = fso.OpenTextFile( curDir & "\mylinks.txt", 8, True)

Set myxlObject = CreateObject("Excel.Application")
Set myxlApplication = myxlObject.Application
Set myWorkBook = myxlApplication.Workbooks.Open( curDir & "\24048353.xlsx" ) 'Change to the actual workbook that has the Hyperlinks
Set myWorkSheet = myWorkBook.Worksheets(1)

myxlApplication.Visible = False

Set rng = myWorkSheet.Range("A2:A3") 'Change to the actual range that has the Hyperlinks

For Each row In rng.Rows

    myLinkName = row.Cells(1, 1).Hyperlinks(1).Name
    myLinkURL = row.Cells(1, 1).Hyperlinks(1).Address

    mylinksFile.WriteLine myLinkName & ", " & myLinkURL

Next

mylinksFile.Close

恐怕我不知道特定于VBScript的文档（我只在Excel中使用过VBA）。但是，如果我的帖子回答了你的问题，或者是有用的，请随意接受，或者投上一票我已经添加了有关您的超链接问题的其他信息。恐怕我不知道VBScript的特定文档（我只在Excel中使用过VBA）。但是，如果我的帖子回答了你的问题，或者是有用的，请随意接受，或者投上一票我已添加有关您的超链接问题的其他信息。谢谢！我没看到，但这很有效。感谢您提供所有相关文档的链接。谢谢！我没看到，但这很有效。感谢您提供所有相关文档的链接。