Execl高手改写VBA采集网数据

来源：蜘蛛抓取(WebSpider) 时间：2015-03-29 00:26 标签： excelvba从入门到精通
EXCEL VBA高手请进，请帮我修改一段VBA代码~_百度知道
提问者采纳
If Cells(R, 2) = && Then Cells(R, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))K列计算式改变后，代码是重新计算的，由于前面已经计算过一次，Cells(R, 2) 单元格已经填写了数据，不是空了，计算结果Tmp就没有重新填写到Cells(R, 2) 单元格。D列语句是
If C = 4 Then
Cells(R, 5) = Tmp就是说只要D列单元格的值发生改变，Cells(R, 5) 就跟着改变。把If Cells(R, 2) = && Then Cells(R, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))改成Cells(R, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))就可以了。
提问者评价
其他类似问题
excel的相关知识
按默认排序
其他1条回答
从你的代码来看，貌似如果不是D俯乏碘何鄢蛊碉坍冬开列的话，仅在单元格为空值时(If Cells(R, 2) = && Then)才会计算？
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 386|回复: 4
先介绍一下业务场景：
我有30多个单独的EXCEl模板，每个模板有除了申请组织、财务组织和库存组织不相同，其他数据都相同。其中申请组织、财务组织和库存组织是组织编号，比如04。
现在我想实现的是，修改其中的某一个表格，剩余所有的30的模板跟着变化。
修改的单元格是
17:29 上传
其他所有的单元格都不变，并且能够批量隐藏部分单元格。
附件是压缩包，excel的保护密码是333。
急求各位大侠解决。
阅读权限200UID432979函数0 关最后登录经验18211 点在线时间1236 小时VBA0 关分享记录好友技巧0 关相册主题段位3 段金币316 个积分18211精华0帖子日志注册时间
【V初201401班】B03
金币316 个积分18211帖子
什么都没有
阅读权限255UID281125函数4 关最后登录经验28519 点在线时间793 小时VBA2 关分享记录好友技巧4 关相册主题段位3 段金币14983 个积分29086精华0帖子日志注册时间
【字典：B06】
金币14983 个积分29086帖子
没有附件，需求也不明朗。
一定要学好VBA
阅读权限255UID593975函数1 关最后登录经验7007 点在线时间427 小时VBA0 关分享记录好友技巧0 关相册主题段位3 段金币1478 个积分7007精华1帖子日志注册时间
201401函中学委：小易
金币1478 个积分7007帖子
直接=就可以了，下次打开F9重算一下就刷新了
上传的时候显示内部服务器错误
最佳答案累计大于100
最佳答案累计大于500
Powered by求助Excel vba 高手！vba要怎么更改才能等连接更新数据完成后再执行保护工作表？_百度知道
代码开始先取消保护单元格，结束执行再保护单元格。同时，注意出错处理。程序出错，同样要进行保护单元格。Sheet1.Unprotect
'取消单元格保护Sheet1.俯碃碘度鄢道碉权冬护Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'进行单元格保护代码中的Sheet1是工作表的后台名称
其他类似问题
按默认排序
其他1条回答
俯碃碘度鄢道碉权冬护Sub&宏()ActiveSheet.UnprotectActiveWorkbook.Connections(&统计表r&).Refresh'在这里写(或运行)你读取ACC数据库数据的代码ActiveSheet.Protect&DrawingObjects:=True,&Contents:=True,&Scenarios:=TrueEnd&Sub
Sub 宏()'运行读取ACC数据库的代码怎么写？我修改了一下不行Set conn = CreateObject(&ADODB.Connection&);conn.Open &Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\数据库\统计表r.accdb& ;Set conn = NothingEnd Sub
你不 有读数据的代码吗加到你前面的宏的两句代码中间运行即可我也不知道你的数据库数据是怎么安排的呀。
Excel是通过链接表到ACC，不是用vba链接。所以没有读数据的代码。
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁C#操作如何修改、添加Excel中的单元格的数据？？？？求高手指点呀。。。在线等待。。。。
[问题点数：30分，结帖人kissapple500]
C#操作如何修改、添加Excel中的单元格的数据？？？？求高手指点呀。。。在线等待。。。。
[问题点数：30分，结帖人kissapple500]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2014年12月 总版技术专家分月排行榜第二2014年9月 总版技术专家分月排行榜第二
2015年2月 .NET技术大版内专家分月排行榜第一2015年1月 .NET技术大版内专家分月排行榜第一2014年12月 .NET技术大版内专家分月排行榜第一2014年11月 .NET技术大版内专家分月排行榜第一
2014年12月 总版技术专家分月排行榜第二2014年9月 总版技术专家分月排行榜第二
2015年2月 .NET技术大版内专家分月排行榜第一2015年1月 .NET技术大版内专家分月排行榜第一2014年12月 .NET技术大版内专家分月排行榜第一2014年11月 .NET技术大版内专家分月排行榜第一
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。vba获取网上邻居上excel工作表内数据问题请教高手在线等_百度知道
vba获取网上邻居上excel工作表内数据问题请教高手在线等
4&#92。如果能实现并运行速度快，该目录下只有一个excel 文件;日报表目录下;&#92，日销售文件地址在&#92.25，自动存储录入到本地电脑一个名为，每天增加一行，最后30行数据自动拿出来，我想将“苹果”工作表中每天更新数据后.xls，“苹果”工作表第一列即为“日期”：日销售.12，日销售.xls为每天更新的.xls其中一个工作表名为“苹果”，文件名为;172.xls的“iphone”工作表中：月销售
我有更好的答案
按默认排序
30 Then rowbegin = 1
rowbegin = rowend - 29
ThisWorkbook，应该一看就明白;);A&&#92.xls&日报表\ & rowbegin & &).End(xlUp).Open (pth)
rowend = Sheets(&quot:D&quot.Cells(1.xls&quot.ActiveSheet.Copy
thisW172.Cells(65536Sub test()
Dim pth As String
Dim rowbegin As Integer
Dim rowend As Integer
pth = &.12.25;);日销售.xls&quot.Range(&iphone&iphone& & rowend).CloseEnd Sub‘具体就不写代码的解释了;).4&#92, 1)
Workbooks(&quot, 1);
W).Sheets(&quot.Range(&quot.Activate
Sheets(&日销售:D&quot.Row
If rowend &lt.ClearContents
Workbooks(&日销售;);苹果&\A
没有达到效果：1、把“苹果”表里的数拷过来后，新拷过来的数把以前的覆盖掉了，要每次拷过来都将新数据接在以前数据的后面2、需要根据日期判断“苹果&表里的数据是不是有更新，如果有更新就将更新的新数据自动拷过来。（“苹果”里的数据是每日更新的） 高手再帮帮忙改一下，非常感谢
汗。。。。。。和我的一份资料逻辑完全一样Sub&每日备份()Workbooks.Open&Filename:=&\\172.25.12.4\日销售.xls&Dim&日销售行,&ARR1日销售行&=&Sheets(&苹果&).Range(&A65536&).End(xlUp).Row日期&=&Sheets(&苹果&).Range(&A&&&&日销售行&&&&&)If&日期&&&&Date&Then&&&&MsgBox&&今日资料未更新&Else&&&&ARR1&=&Range(Cells(日销售行&-&29,&1),&Cells(日销售行,&100))End&IfWindows(&日销售.XLS&).CloseThisWorkbook.Sheets(&iphone&).Range(&A&&&&Range(&A60000&).End(xlUp).Row&+&1&&&&&).Resize(30,&100)&=&ARR1End&Sub
我帮你实现vba
其他类似问题
1人觉得有用
您可能关注的推广
excel工作表的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 excelvba从入门到精通 的文章

 

随机推荐