[已解决]谢谢wayy老师，如何只导入N个外部XLS格式的数据里的首页的内容

lhj323323 · 发表于 2010-6-28 17:34

cKg7v8CS.rar (30.56 KB, 下载次数: 3)

wayy · 发表于 2010-6-28 17:48

这个应该不是很难，逐个打开，然后选中首页工作表，复制，然后粘贴到你的模版中就可以了。

wayy · 发表于 2010-6-28 18:15

2VQiblBt.rar (12.86 KB, 下载次数: 3)

lhj323323 · 发表于 2010-6-28 21:15

QUOTE:

以下是引用wayy在2010-6-28 18:15:00的发言：

改了下，应该可以用了。

老师，[桥染]表的A列和B列还没有成功。

老师，别怪我贪心，我是一直不会怎么样自动加序号，还有取数据源的工作簿的部分名称

[此贴子已经被作者于2010-6-28 21:17:49编辑过]

wayy · 发表于 2010-6-29 10:41

要活学活用，

只是饭来张口的话，不太好[em01]

Kw8PBiB0.rar (16.03 KB, 下载次数: 10)

lhj323323 · 发表于 2010-6-29 22:16

QUOTE:

以下是引用wayy在2010-6-29 10:41:00的发言：

要活学活用，

只是饭来张口的话，不太好[em01]

老师教训的是！！，我也觉得不好意思。

下面这一句只是将数据源的文件名的后缀去掉了

.Cells(u, 1).Resize(UBound(Arr), 1) = Replace(Myname, ".xls", "")

能否同时将数据源的文件名前面的“模板_”也替换掉？

我还用的下面的笨办法：

.Cells(u, 1).Resize(UBound(Arr), 1) = Myname

...........

With Sheets("桥梁")
          .Range("b1:ag1").Value = Sheets("数据库").Range("a1:af1").Value '移置[数据库]第一行的标题
          .[a:a].Replace "模板_", ""
          .[a:a].Replace ".xls", ""

end with

关于添加序号

我收集了两种方法，其中一种是您写的

'方法1
      Dim rng As Range
         For Each rng In .Range("b2:b" & .[B65536].End(3).Row)
           rng = x + 1
           x = x + 1
      Next rng
'方法2，wayy
      'With Sheet2
      ' For i = 2 To .[c65536].End(xlUp).Row
      '    .Cells(i, 2) = i - 1
      ' Next
      'End With

这两种方法之间有什么优劣呢？

第三，学生我上传的附件中的模板是定期将基层单位填报人员报送的N张数据源进行提取数据，不存在上期数据之说，但是我在测试您写的VB时，发现导入到[桥梁]表的数据，每次都不是从[桥梁]的第二行导入，无论我用

'.Range("a2:ag" & Myr1).ClearContents '清除第8行向下的所有记录，但格式清除不掉
' .Range("a2:ag" & Myr1).Clear '预设的格式也被清除

将第二行以下的上期已导入数据清空，但都不能实现将将本期提取的数据导入到[桥梁]的第二行。请指教问题出在什么地方

[此贴子已经被作者于2010-6-29 23:37:26编辑过]

		自动登录	找回密码
密码			注册

[已解决]谢谢wayy老师，如何只导入N个外部XLS格式的数据里的首页的内容

回复：（wayy）[upload=rar]viewFile.asp?ID=122800[/...

回复：（wayy）要活学活用，只是饭来张口的话，不太好...