n*****r
发帖数: 1087 | 1 ******麻烦帮我看看红色框中的code哪里写错了*********
初学macro，码点code真折磨非IT背景的人，一直都弄不对。
我想写的macro是把一个很大的excel file(几千row,几十column)的某些column的数据
copy到word里面作为report的appendix。这个excel file是由某个特定软件export出来
的，第一row都一样，也就是说，# of column是一样的，不同的是# of rows，这个视
具体的project而定。
附件：只是一个练习，离最终要写的macro还差很遥远，只能一步一步接近目标。这个
macro能run，但有太多毛病，比如run之后，excel file可以看到正确的row height,但
word里面的row height还是不能控制好。但最主要的一个问题是红框中的code，这样写
，column D的数据最终也被copy到word里面，我只想copy column C 和 E，要怎么改这
部分code呢？
我最终想得到的word大概是附件那样的：比如我只copy column B D F H的数据，每页
只能放下两column的话，那4个column需要两页；然后再根据row数，看看每页能放多少
row。
谢谢。 |
s**********o
发帖数: 14359 | 2 请选用DATABASE SYSTEM，NOT WORD PROCESSOR |
n*****r
发帖数: 1087 | 3 我们做data analysis（不是data management)的，需要写report的，report是用word
的。
【在 s**********o 的大作中提到】
: 请选用DATABASE SYSTEM，NOT WORD PROCESSOR
|
c*****d
发帖数: 6045 | 4 也许你有特殊的原因
我就是直接attach excel表格
word
【在 n*****r 的大作中提到】
: 我们做data analysis（不是data management)的，需要写report的，report是用word
: 的。
|
n*****r
发帖数: 1087 | 5 太多sheet了，太多不相关的数据，不熟悉的人根本没头绪在哪里能找到report里相关
的数据。看report的人都是decision maker，没啥理工科背景，老板让在appendix只放
report里分析的相关数据。不行的话，只能manually一个一个表格弄，太花时间。
写好了macro，以后的project还可以用到。而且同一个project也能用很多次，软件里
的数据经常update，每update一下，export出来的excel file数据自然也改了，如果
report还在draft阶段，也得跟着update数据。
【在 c*****d 的大作中提到】
: 也许你有特殊的原因
: 我就是直接attach excel表格
:
: word
|
c*****d
发帖数: 6045 | 6 比如一个worksheet里，选出有用的列，保存，然后attach到word里
能automate当然最好了，不过这种格式问题基本很麻烦
【在 n*****r 的大作中提到】
: 太多sheet了，太多不相关的数据，不熟悉的人根本没头绪在哪里能找到report里相关
: 的数据。看report的人都是decision maker，没啥理工科背景，老板让在appendix只放
: report里分析的相关数据。不行的话，只能manually一个一个表格弄，太花时间。
: 写好了macro，以后的project还可以用到。而且同一个project也能用很多次，软件里
: 的数据经常update，每update一下，export出来的excel file数据自然也改了，如果
: report还在draft阶段，也得跟着update数据。
|
n*****r
发帖数: 1087 | 7 没办法，老板很picky，人家想要macro的东东，那种点击一下run就把数据自动转到
word里面，而且还得format什么的，因为export出来的excel file没format的。
现在红框中是我遇到的第一个大问题，下面紧接的还有其他问题，比如我现在还不知道
要怎么写code才能在其他页面重复第一行的数据，比如我要在word的第三页，第四页重
复 B D F H字样。
【在 c*****d 的大作中提到】
: 比如一个worksheet里，选出有用的列，保存，然后attach到word里
: 能automate当然最好了，不过这种格式问题基本很麻烦
|
s**********o
发帖数: 14359 | 8 我大概知道LZ的意思了，但是用MACRO FORMAT WORLD TABLE是比较困难的。
那种无数页的大表放在REPORT里有什么用啊，就让PAGE BREAK自己去CUT好了 |
l*****e
发帖数: 3343 | 9 Before pasting to word, paste them to a new worksheet:
Sheets("Temp_Sheet").activate
Range("A1").select
Range("A1").Currentregion.clear
Range("A1").Select
Sheets("XXX").range("XX:XX, YY:YY").copy
Sheets("Temp_Sheet").activate
Activesheet.Paste
Range("A1").select
Activecell.Currentregion.select
Selection.Copy
//////
You will be fine now. --w/ improved codes |
l*****e
发帖数: 3343 | 10 better to set:
Application.Screenupdating=false ' at the starting of your codes
Application.Screenupdating=true ' End of codes
With so many C/V, users will get dizzy. |
|
|
n*****r
发帖数: 1087 | 11 谢谢楼上两位，明天上班时试试，现在弄这个没加班费。 |
n*****r
发帖数: 1087 | 12 其实像我这样不会写code的人，写出能run的code，成就感就很高了，写得好，对我来
讲是奢侈品：）
【在 l*****e 的大作中提到】
: better to set:
: Application.Screenupdating=false ' at the starting of your codes
: Application.Screenupdating=true ' End of codes
: With so many C/V, users will get dizzy.
|
n*****r
发帖数: 1087 | 13 能教教我在其他page怎么重复title row呢？就是如何写code才能在其他页面重复B D F
H的字样，
因为在export的excel file，只有第一row才有B D F H。
非常感谢。
【在 l*****e 的大作中提到】
: better to set:
: Application.Screenupdating=false ' at the starting of your codes
: Application.Screenupdating=true ' End of codes
: With so many C/V, users will get dizzy.
|
l*****e
发帖数: 3343 | 14 copy first row to Temp_Sheet
paste your value ranges starting from "A2"
F
【在 n*****r 的大作中提到】
: 能教教我在其他page怎么重复title row呢？就是如何写code才能在其他页面重复B D F
: H的字样，
: 因为在export的excel file，只有第一row才有B D F H。
: 非常感谢。
|
n*****r
发帖数: 1087 | 15 Thanks a lot!
【在 l*****e 的大作中提到】
: copy first row to Temp_Sheet
: paste your value ranges starting from "A2"
:
: F
|
c*********e
发帖数: 16335 | 16 为啥不用crystal report.这玩艺可以做个網站，老板直接登录进去看数据。
【在 n*****r 的大作中提到】
: ******麻烦帮我看看红色框中的code哪里写错了*********
: 初学macro，码点code真折磨非IT背景的人，一直都弄不对。
: 我想写的macro是把一个很大的excel file(几千row,几十column)的某些column的数据
: copy到word里面作为report的appendix。这个excel file是由某个特定软件export出来
: 的，第一row都一样，也就是说，# of column是一样的，不同的是# of rows，这个视
: 具体的project而定。
: 附件：只是一个练习，离最终要写的macro还差很遥远，只能一步一步接近目标。这个
: macro能run，但有太多毛病，比如run之后，excel file可以看到正确的row height,但
: word里面的row height还是不能控制好。但最主要的一个问题是红框中的code，这样写
: ，column D的数据最终也被copy到word里面，我只想copy column C 和 E，要怎么改这
|
