如何使用PowerShell將一個Excel文件中的超鏈接嵌入另一個Excel文件中的文本

Question

各位晚上好，

我有一個問題，我確實需要一些幫助。 我拿了兩個csv文件，將它們進行比較並將其轉換為xls。 現在，讓我感到困惑的部分是如何從一個excel文檔的第1行第1列中獲取超鏈接，並將它們嵌入到另一文檔的第1行第2行中的文本中。

是否有捷徑可尋？ 我發現以下鏈接使我有些困惑： https : //social.technet.microsoft.com/Forums/scriptcenter/en-US/123d673a-f9a7-4ae6-ae9c-d4ae8ef65015/powershell-excel-how-do- I-創建-A-超鏈接到一個細胞功能於另一片材的最文件？論壇= ITCG

感謝您提供的任何指導和幫助。

#Define the file path and sheet name
$FilePath= `enter 
code"C:\Users\cobre\Desktop\PowerShell\HomeWork2\Test3.csv"
$FilePath2="C:\Users\cobre\Desktop\PowerShell\HomeWork2\Test3.xls"
$FilePath3="C:\Users\cobre\Desktop\PowerShell\HomeWork2\Test4.xls"
$SheetName="Test3"
$SheetName2="HyperLinks"

#Compare two CSV files to look for matches
$CSV1 = import-csv -path 
C:\Users\cobre\Desktop\PowerShell\HomeWork2\Test1.csv
$CSV2 = import-csv -path 
C:\Users\cobre\Desktop\PowerShell\HomeWork2\Test2.csv
Compare-Object $CSV1 $CSV2 -property ShoppingList -IncludeEqual | where-
object {$_.SideIndicator -eq "=="} 

# Create an Object Excel.Application using Com interface
$objExcel = New-Object -ComObject Excel.Application
# Enable the 'visible' property so the document will open in excel
$objExcel.Visible = $true
$objExcel.DisplayAlerts = $False

# Open the Excel file and save it in $WorkBook
$WorkBook = $objExcel.Workbooks.Open($FilePath)
# Load the WorkSheet "Test3" 
$WorkSheet = $WorkBook.sheets.item($SheetName)

# Delete data from column
[void]$WorkSheet.Cells.Item(1,2).EntireColumn.Delete()

#Auto fit everything so it looks better
$usedRange = $WorkSheet.UsedRange   
$usedRange.EntireColumn.AutoFit() | Out-Null

#Save and convert to XLS
$Workbook.SaveAs("C:\Users\cobre\Desktop\PowerShell\HomeWork2\Test3.xls",1)
$Workbook.Saved = $True

#Load 
$excel = New-Object -comobject Excel.Application

$excel.Visible = $True

$workbook = $objExcel.Workbooks.Add()

$workbook.Worksheets.Item($FilePath2).Hyperlinks.Add( `
$workbook.Worksheets.Item($FilePath2).Cells.Item(1,2) , `
"" , $FilePath3, "https://community.spiceworks.com/topic/673034-powers

Answer 1

您可以使用如下形式：

$excel = New-Object -comobject Excel.Application

$excel.Visible = $True

$workbook = $excel.Workbooks.Add()

$workbook.Worksheets.Item(1).Hyperlinks.Add($workbook.Worksheets.Item(1).Cells.Item(1,1) ,"" , "Sheet2!C4", "", "Link to sheet2")

參考： Hyperlinks.Add方法

希望能幫助到你