带你入门VBA，第四讲（如何控制关于工作薄与工作表）

wh6151 · 发表于 2005-1-11 22:26

[em17][em17]看了上面大家的精彩帖子，收获不小，谢谢！

simonzhou · 发表于 2005-1-25 15:54

太“胖”了！

donyxin · 发表于 2005-2-6 09:16

请教兰老大，如果单元格A1：A12 内容分别是“一月”、“二月”... ... 如何编写VBA，生成以其内容命名地excel文件：一月.xls、二月.xls... ...

谢谢

[em09]

Excellover · 发表于 2005-2-15 12:03

將ActiveSheet.Pictures.Insert(ThisWorkbook.Path + "\hskp\" + i + ".JPG").Select中的+改成&就可以了

xizi825 · 发表于 2005-2-16 02:02

兰英雄，这段时间不太忙了？

能抽出这么大的精力来论坛服务大家，你太敬业了

我也有好久没来了，今天一来就看到你的大作，兴奋呀

伟大伟大真伟大

[此贴子已经被作者于2005-2-16 2:03:21编辑过]

lily1969 · 发表于 2005-2-18 16:21

非常钦佩兰老师的敬业及无私授业精神，期待更多精彩的内容。。。。

[em17][em23][em22]

wangkang · 发表于 2005-3-17 22:37

保存？！

goonthing · 发表于 2005-3-31 15:31

好的

sdzylwh · 发表于 2005-4-4 16:22

兰老师，works work sheets sheet application thiswork workbooks books 等这些是怎么个用法？都是什么时候使用？

yanrsamura · 发表于 2005-4-4 18:48

班主，幫我解決個問題吧!

Sub 更新() ' ' 更新巨集表 ' cdzhong 在 2005/4/3 錄製的巨集 '

' Range("C1").Select Workbooks("本周新單A.xls").Sheets("2005").Columns("A:G").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("W1:X2"), CopyToRange:=Columns("A:G"), _ Unique:=False ActiveWindow.LargeScroll ToRight:=-2 End Sub

我要在workbooks()前面加上盤符(比如說D：)要怎樣做啊

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