Office中国论坛/Access中国论坛

标题: access里如何调用excel里的格式刷PasteSpecial？ [打印本页]

作者: 简 时间: 2012-5-17 22:54
标题: access里如何调用excel里的格式刷PasteSpecial？
我在excel里设计了样板表，样板表的第三行是我设计好的格式。当我从access里导出数据到这个样板表时，通过对样板表的第三行点击格式刷，然后导出的数据进行格式刷操作。

我查到excel里的格式刷是PasteSpecial，但在access里如何调用呢。

还有，我在excel里复制，粘贴时只粘贴公式或值，这时在access里代码又怎么写呢。

作者: 简 时间: 2012-5-18 11:54
我在excel录制的宏，其操作代码如下：

Rows("2:2").Select
Selection.Copy
Rows("3:20").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("Q2:T2").Select
Selection.AutoFill Destination:=Range("Q2:T20"), Type:=xlFillDefault
Range("Q2:T20").Select

应该怎么修改，才能在access里使用呢。

作者: todaynew 时间: 2012-5-18 12:12
皆无必要。
直接设计好Excel表的样式和公式，只向其填空处导入数据即可。

作者: 简 时间: 2012-5-18 13:03

todaynew 发表于 2012-5-18 12:12
皆无必要。
直接设计好Excel表的样式和公式，只向其填空处导入数据即可。

我原先就是先设计好样板表，然后从access导出数据到样板表时，采用插入复制粘贴的方式，由于是逐条记录操作，运行速度慢，因为每个月的记录成千上万，还有电脑比较老，又只有256M的内存，采用这种方式经常死机。

后来我就采用CopyFromRecordset来导出，速度提快了，但是需要重新排版，设置格式公式等。所以我就先在excel表中的第2行设置好样式公式，然后用格式刷和拖动的方式来处理排版。我需要在access里运行excel中的格式刷，不知代码如何写。

作者: todaynew 时间: 2012-5-18 14:23

简发表于 2012-5-18 13:03
我原先就是先设计好样板表，然后从access导出数据到样板表时，采用插入复制粘贴的方式，由于是逐条记录操 ...

老板省钱，你就别给他省时间。当他认识到时间就是金钱的时候，设备也就更新了。

作者: ycxchen 时间: 2012-5-18 15:09
只有256M的内存?什么年代了，别人电脑的内存快256G了。

作者: roych 时间: 2012-5-18 21:14

简发表于 2012-5-18 13:03
我原先就是先设计好样板表，然后从access导出数据到样板表时，采用插入复制粘贴的方式，由于是逐条记录操 ...

其实这样的问题有几种解决办法：
1、设置模板表格。把数据导出后，将结果引用到模板中，例如：=sheet1!A2
2、创建Excel模板（xlt），把数据导出到模板文件中。
3、导出数据，然后创建Excel组件，格式化工作表。
4、估计就是你所说的那个办法了。
还是先把你的宏改成Access里可用的吧。

Sub test()
'需引用Excel库。否则就得创建Excel组件（CreateObject）。
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open(CurrentProject.Path & "\Pra_Postion.xls")
'这一句很重要，将目标表转为活动工作表（也可以用Activate方法）。
wb.Sheets("test").Select
Set ws = wb.ActiveSheet
ws.Rows("2:2").Select
Selection.Copy
ws.Rows("3:20").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ws.Range("Q2:T2").Select
Selection.AutoFill Destination:=Range("Q2:T20"), Type:=xlFillDefault
ws.Range("Q2:T20").Select
'保存后关闭工作表。
wb.Save
wb.Close
End Sub

复制代码

作者: 简 时间: 2012-5-18 21:48

roych 发表于 2012-5-18 21:14
其实这样的问题有几种解决办法：
1、设置模板表格。把数据导出后，将结果引用到模板中，例如：=sheet1!A ...

首先说明，我的记录数成千上万，但数量不是固定的；另外，格式里带有公式，并不仅仅是简单的格式。
所以我觉得你提的第1种和第2种方法，似乎都不适用。当然也可能是因为我没有接触到这方面的例子，不知如何解决。

你给我的代码我运行了，在以下代码处卡起，

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

这段代码无法运行，我把Selection.PasteSpecial 改为ws.Selection.PasteSpecial ，结果在Paste:=xlPasteFormats又无法运行，提示编译错误，变量未定义。我不知如何修改了。

还有引用excel的格式刷之类的，要引用什么控件之类的不？

作者: 简 时间: 2012-5-18 21:51
还出现一个错误提示，即错误1004，类Range的PasteSpecial无效引用。

作者: roych 时间: 2012-5-19 07:54

简发表于 2012-5-18 21:51
还出现一个错误提示，即错误1004，类Range的PasteSpecial无效引用。

奇了怪了。。。。我运行可是没问题的啊。除非自动填充列存在合并单元格（粘贴格式部分则不会）。附件供参考：
[attach]49220[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)