所以我想从我的工作簿中的每张工作表中的一列中提取信息。目前有506张。每个人都有不同数量的行,每个表都有自己的唯一名称。我希望每张表的数据都从第8行开始,并且在第J列。我试图将所有这些打印到页面中的C列,我称之为测试,它位于同一工作簿中,但未计入506我刚才提到的床单。这是我到目前为止已经写的: Sub Test()
Columns(3).Insert
For i = 1 To i = 506
我有这样的代码,这一切工作正常,但我无法弄清楚如何让它保持原始文件名: Set app = CreateObject("Excel.Application")
app.Visible = False
app.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In f
我使用Windows XP SP 3.我已经写代码从Excel 2003中多个图表粘贴到Word 2003 Dim word As Object
Dim doc As Object
On Error Resume Next
Set word = GetObject(, "word.application") 'gives error 429 if Word is not open
If