作者：乔山办公网日期：
返回目录：excel表格制作
你没必要把PDF统一放到SHEET2里，可以单独放在一个文件夹里，在SHEET1单号上建立链接就可以呀，这样可以做到一对一。
选择Sheet1的A1单元格（不是单击，是按住不放），将超链接公式中的B1改变B2，即可。
A1输入 =Sheet2!B2
Dim xx As New Microsoft.Office.Interop.Excel.Application '定义进程复
Dim yy As Microsoft.Office.Interop.Excel.Workbook '定义工作制簿
xx = CreateObject("Excel.Application") '创建Excel对象百
yy = xx.Workbooks("sheet1")
yy.Worksheets("sheet1").range("A1")="sheet2!b2"
yy.Save()
yy.Close()
yy = Nothing
xx.Quit()
xx = Nothing '销毁组建度释放资源