vb保存excel-用VB如何自动保存EXCEL
没有你要的？请搜索……
你现在正在浏览：
vb保存excel 用VB如何自动保存EXCEL
vb保存excel
&.xls&quot.Path & &\ 如采纳为答案有追加积分谢谢！相关说明：
用SeAsThisWorkBook.SeAs Filename:=ThisWorkBook.Path & &\XXX.xls&来保存只能存在一个文件夹内ActiveWorkbook.SeAs ActiveWorkbook.Path & &\& & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & &\&, &&)) + 1) & &.xls& 这句也只能保存 如 原有文件为1.xlsx 再能保存 2.xlsx希望每次结束 都可以保存在一个新的excel文件里面。 希望能给出一个程序，如有不明白的请说，我再补充。
&&quot.Path & &\&还可以用保存副本ThisWorkBook.SeCopyAs ThisWorkBook.Path & &\&楼主;\XXX.xls&quot，VBA我也不是很熟，正在学1。关于文件保存不是可以用SeAsThisWorkBook.SeAs Filename:=ThisWorkBook.Path & &\XXX.xls&quot:ActiveWorkbook.SeAs ActiveWorkbook.Path & &)) + 1) 将上边说的加了1的数字再转换成文本 ActiveWorkbook.SeAs ActiveWorkbook.Path & &quot.Se,是保存在原文件下;&&)) 将当前工作薄文件路径和文件名字中的 &\, &quot.xls& ActiveWorkbook.SeAs 当前活动工作另存为ActiveWorkbook, ActiveWorkbook.Path 当前工作薄的完整路径& 文本连接符Replace(ActiveWorkbook.FullN\&; 去掉以后;\& & CStr(Val(Replace(ActiveWorkbook, &&)) + 1 当前工作薄文件路径和文件名字中的 &&#92:如果您不是真的想执行保存动作, 只想打个已保存标记(实际上不保存), &&)) + 1) & &.FullName, ActiveWorkbook.Path & &quot, ActiveW如果你用se方法的话，ActiveWorkBook, &&)) + 1) & &.注;\&.FullName, ActiveWorkbook.Path & &quot，再取其中的数字并加1`CStr(Val(Replace(ActiveWorkbook.FullN\& & CStr(Val(Replace(ActiveWorkbook.Path & &&#92.FullName, ActiveWorkbook.Path & &, & 去掉Val(Replace(ActiveWorkbook，可以把工作薄的属性sed设成ture. 这是标记已保存(实际上并没保存)下面那个句的意思是;&quot
d;替换成&&结果是12.xlscstr(val(&12;d:\a\b\12;d:\a\b\12没用过，但是大概能理解这句的意思ActiveWd.xls&这个字符串中的子字符串&d;d:\1.xls&quot。rename 函数就是把&quot.xls&这样的ActiveWorkbook.Path 则是&quot.FullName一般是指&quot，如果不加判断，容易出错:\&也就是直接带了\，path属性就是&quot:\a\b&quot:\a\b&这种在根目录下的话; 但是如果fullname是&quot
黑色食品——“黑五类”是美丽的黄金食品黑色食品可谓是补肾精的黄金食品，所以，“黑五类”可是我们的厨房必备! 每天都坚持喝一碗，现在已经连续喝了三个多星期了，以前有好些白发的地方居然没有复发，而且现在一根也没有啊，我真的很开心。不仅白头发不见了，而且皮肤变白皙和光滑了好多，气色也比原来好了！
好东西要大家分享，于是我把这个方子告诉了好些朋友，可是大多数人刚听到白发能变黑皮肤能变好时都很感兴趣，但是再一听都连忙摇头，觉得每天下班都好累了，怎么还有精力去熬粥呢，呵呵。
其实熬这个粥很简单啊，爱惜自己的身体就算多花点时间和精力又有什么不好呢，所以我把这个方子写在这里吧，希望能给有缘的朋友带来好处。你开心，我也会开心的，呵呵。
【配方】：黑豆（1小把）;黑米（2把）; 黑芝麻（1小把）; 百合（10片）; 薏仁（3把）; 核桃（2个）; 大米（2把）; 红糖(适量) 。
另外核桃也可以换成花生米。
以上是两个人的量。 我是每天中午就把这些放碗里泡好，晚上洗碗的时候就开始熬粥，大概10几分钟水变粘稠的时候就可以了，关火，盖上盖子闷。第二天早上加点水，放红糖，热两分钟就ok了！
另外我也观察了下，喝了这个粥三周多以后，我的指甲的小月牙由原来的两个（大拇指）变七个了，好高兴！另外孩子喝粥以后，这个冬天脸上开始变红润了（以前就是白白的），身体变结实了好多。
Excel中求出线性回归方程怎么使a、b值保留到小数点后5位?：
请问您指的是不是插入图表的趋势线后显示线性公式的问题?目前WPS表格中暂时不支持修改上述公式的小数位...
’!’!$B$5在EXCEL里面什么意思：
工作表名标记符 如果要引用另外的工作表中的单元格,就要加上工作表名,在工作表名与单元格名称之间,加上...
excel宏:如何实现多用户同时向同一个excel中保存记录?例如:A和B 同时在自己的电脑上操作：
创建 共享工作簿。 1、创建一个可供多用户编辑的工作表,然后输入要提供的数据。 2、如果要包括以下的...
有两个Excel文件,Excel A和Excel B 。我想要把Excel B中某个内容自动记录到表...：
想问你一下,你想让B和A保持同步呢,还是每次将B的内容保存到A后就自动清空B的内容。如果是前者,设计...
下面不是excel可以保存的文件扩展名的是 a xls b slk c xot d csy?：
xls和slk都是excel可以保存的文件名,xot和csy不了解,但是csy是不是打错了?应该是c...
Excel 如何导出查找到的内容到另一个表：
软件版本:Office2007 方法如下: 选择查找到到的内容,按下Ctrl+G,点击定位条件,选择...
求助:下载B列图片链接保存到excel表格同文件夹,并用A列命名图片。怎样让他批量完成?：
Private Declare Function URLDownloadToFile Lib &ur...
Excel 怎样把A表数据变为B表的格式的数据：
同时打开两个表,改动A表数据后保存,不关闭,再保存B表,B表跟着变动了。
求excel 制作保存按钮代码 在固定单元格(A1)输入 点击保存按钮 依次保存到另一列(B列)：
打开VBE编辑器,插入一个模块,粘贴以下代码,在表格中添加一个窗体命令按钮控件,指定宏为保存。至于&...
也许你也感兴趣的内容怎样实现用VB对EXCEL的操作_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
怎样实现用VB对EXCEL的操作
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩17页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢Private Sub Command1_Click()
&&&&Dim xlApp As Object
&&&&Set xlApp = CreateObject(&Excel.Application&)
&&&'Dim xlapp As Excel.Application 'Excel对象
&&' Dim xlbook As New Excel.Workbook '工作簿
&&&'Dim xlsheet As Excel.Worksheet '工作表
&&&&&&&&&&&
&&&'Dim exlApp As New Excel.Application
&&&&'Dim exlBook As Object
&&&&'Set exlBook = CreateObject(&Excel.Workbook&)
&&&&'Dim exlBook As New Excel.Workbook
&&&' Set exlApp = New Excel.Application
&&&xlApp.Visible = True '显示Excel窗口
&&&&Set exlBook = xlApp.Workbooks.Open(&d:\testvb\1.xls&) 'Excel文件路径及文件名
&&&&'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格
&&&&xlApp.Sheets(1).Cells(1, 1) = &11&
&&&&xlApp.Sheets(1).Cells(1, 2) = &12&
&&&xlApp.Sheets(1).Cells(2, 1) = &21&
&&&&xlApp.DisplayAlerts = False
&&&&'exlBook.Close True &'先保存修改再关闭工作簿
&&&&xlApp.Save
&&&&xlApp.Quit &&'关闭Excel
注意表的删除与表的添加的方式与方法：
Private Sub Command1_Click()
&&&&Dim xlApp As Object
&&&&Set xlApp = CreateObject(&Excel.Application&)
&&&'Dim xlapp As Excel.Application 'Excel对象
&&' Dim xlbook As New Excel.Workbook '工作簿
&&&'Dim xlsheet As Excel.Worksheet '工作表
&&&'Dim exlApp As New Excel.Application
&&&&'Dim exlBook As Object
&&&&'Set exlBook = CreateObject(&Excel.Workbook&)
&&&' Dim exlBook As New Excel.Workbook
&&&' Set exlApp = New Excel.Application
&&&xlApp.Visible = True '显示Excel窗口
&&&&Set exlBook = xlApp.Workbooks.Open(&d:\testvb\1.xls&) 'Excel文件路径及文件名
&&&&'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格
&&&&xlApp.sheets(1).cells(1, 1) = &11&
&&&&xlApp.sheets(1).cells(1, 2) = &12&
&&&&xlApp.sheets(1).cells(2, 1) = &21&
&&&&xlApp.sheets(1).cells(3, 4) = &34&
&&&&xlApp.DisplayAlerts = False
&&&&'exlBook.Close True &'先保存修改再关闭工作簿
&&&&xlApp.sheets(2).Delete'表2的删除，即位置处于2号位的表的删除
&&&&xlApp.sheets.Add'表的添加，添加后表处于1号位
&&&&xlApp.sheets(2).Select'这两句是表位置的调整，使1号位与2号位的表的位置与换
&&&&xlApp.sheets(2).Move Before:=xlApp.sheets(1)
&&&&xlApp.Save
&&&&xlApp.Quit &&'关闭Excel
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：120515次
积分：6012
积分：6012
排名：第4224名
原创：504篇
转载：35篇
(11)(20)(24)(53)(64)(112)(27)(9)(64)(35)(11)(13)(21)(52)(7)(15)(1)2011年8月 VB大版内专家分月排行榜第三
2011年8月 VB大版内专家分月排行榜第三
2009年4月 VB大版内专家分月排行榜第三2007年10月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}