EXCEL2003 批量打印超链接中的文件

ljt1015

求助：
在EXCEL2003中，如何批量打印超链接中的文件？
具体示例文件见附件，希望各位高手能详细指点一下，谢了。{:soso__17374622445348902337_1:}

LangQueS

按D列打印就可以了吧

ljt1015

是的，D列的路径就是B列超链接引用的内容，不过D列在原文件中是隐藏的，没办法选定

LangQueS

ljt1015 发表于 2011-12-25 22:36
是的，D列的路径就是B列超链接引用的内容，不过D列在原文件中是隐藏的，没办法选定

使用代码可以直接调用隐藏单元内容，不需要选定。

ljt1015

LangQueS 发表于 2011-12-25 22:51
使用代码可以直接调用隐藏单元内容，不需要选定。

求代码……

LangQueS

1. Sub 打印多工作簿()
   
2. For a = 2 To [d65536].End(xlUp).Row
   
3.     b = Cells(a, "d").Value
   
4.     Workbooks.Open Filename:=b    '打开文件
   
5.     Sheets(1).Select    '第一个工作表
   
6.     ActiveSheet.PrintOut        '打印当前表
   
7.     ActiveWorkbook.Close    '关闭
   
8. Next
   
9. End Sub

复制代码

ljt1015

LangQueS 发表于 2011-12-25 23:03

非常感谢！{:soso_e179:}
还有几个小问题：
Sheets(1).Select    '第一个工作表
这句可以不加吧？有些工作薄是要打印所有选中的表格的

而且只想打印选定单元格所在行的文件，并不是打印表内所有的超链接文件。
如果文件比较多的话，是不是运行会非常慢？

LangQueS

ljt1015 发表于 2011-12-25 23:09
非常感谢！
还有几个小问题：
Sheets(1).Select    '第一个工作表

1. Sub 打印D列选区多工作簿()
   
2. For Each shtn In Selection
   
3.     a = shtn.Value
   
4.     Workbooks.Open Filename:=a    '打开文件
   
5.     Sheets(1).Select    '第一个工作表
   
6.     ActiveSheet.PrintOut        '打印当前表
   
7.     ActiveWorkbook.Close    '关闭
   
8. Next shtn
   
9. End Sub

复制代码

ljt1015

LangQueS 发表于 2011-12-25 23:19

非常感谢！{:soso__10882166114642946631_2:}
还有两个问题：
1. 但是只能打印sheet1的内容不够，有些表默认打开就是工作组的状态，需要打印其中全部的工作表。
2. 而且D列在原表中是隐藏的，可不可以变成选中其他任意单元格即可打印该行的D列内容？

或者换个思路，正常操作时直接在文件名上右键→打印 即可打印出该工作薄中的选定工作组内容。
能否不打开文件，直接打印呢？

ljt1015

LangQueS 发表于 2011-12-25 23:19

感谢超版解答，文件已经搞定。代码稍微修改了一下。