查看: 1120|回复: 9
[已解决]ECEXL保存数据到ACCESS里后自动清空EXCEXL当前数据
求各位大侠帮忙写一个ECEXL保存数据到ACCESS里后自动清空EXCEXL当前数据。
下面附上保存代码。请帮忙添加保存后自动清空代码。谢谢！！！！
Private Sub CommandButton1_Click()
& & Dim cnn As New ADODB.Connection
& & Dim RST As New ADODB.Recordset
& & Dim sq1 As String
& & Dim x As Long
& & x = [a65536].End(xlUp).Row
& & For i = 3 To x
& & cnn.Open &provider=microsoft.jet.oledb.4.0;data source=& & ThisWorkbook.path & &\数据库.mdb&
& & sq1 = &select * from 入库单&
& & RST.Open sq1, cnn, adOpenKeyset, adLockOptimistic
& & RST.AddNew
& & RST.Fields(&商品代码&) = Range(&a& & i)
& & RST.Fields(&商品名称&) = Range(&b& & i)
& & RST.Fields(&品牌名称&) = Range(&c& & i)
& & RST.Fields(&季节名称&) = Range(&d& & i)
& & RST.Fields(&单位&) = Range(&e& & i)
& & RST.Fields(&商品年份&) = Range(&f& & i)
& & RST.Fields(&XS&) = Range(&h& & i)
& & RST.Fields(&S&) = Range(&i& & i)
& & RST.Fields(&M&) = Range(&j& & i)
& & RST.Fields(&L&) = Range(&K& & i)
& & RST.Fields(&XL&) = Range(&L& & i)
& & RST.Fields(&XXL&) = Range(&M& & i)
& & RST.Fields(&XXXL&) = Range(&N& & i)
& & RST.Fields(&入库数量&) = Range(&O& & i)
& & RST.Fields(&选定价&) = Range(&P& & i)
& & RST.Fields(&选定金额&) = Range(&Q& & i)
& & RST.Fields(&备注&) = Range(&R& & i)
& & RST.Update
& & cnn.Close
& & Set cnn = Nothing
& & Next i
& & MsgBox &保存成功&
(12.77 KB, 下载次数: 0)
14:26 上传
hwc2ycy发布于
tuibian_htf 发表于
版主啊求求帮帮了！我在等呢！！& & Dim i As Long
& & i = Cells(Rows.Count, 1).End(xlUp).Row
& & If i &2 Then Range(&a3:r& & i).ClearContents复制代码
activesheet.usedrange.clearcontents
hwc2ycy 发表于
activesheet.usedrange.clearcontents
不好意思版主我没说清楚。标题不能清空的。麻烦你帮忙。
hwc2ycy 发表于
activesheet.usedrange.clearcontents
版主啊求求帮帮了！我在等呢！！
&&&本楼为最佳答案&&&
tuibian_htf 发表于
版主啊求求帮帮了！我在等呢！！& & Dim i As Long
& & i = Cells(Rows.Count, 1).End(xlUp).Row
& & If i &2 Then Range(&a3:r& & i).ClearContents复制代码
用这一句更简洁，不需要判断。ActiveSheet.UsedRange.Offset(2).ClearContents复制代码
hwc2ycy 发表于
tuibian_htf 发表于
版主为什么就保存1行的数据啊我要保存多行的
tuibian_htf 发表于
版主为什么就保存1行的数据啊我要保存多行的
你是不是循环一次后就运行清空的代码了?
版主早上好！感谢你昨天给我的清空代码，我想要的是在我原来的那个代码里加入清空代码，意思就是我点保存按钮后也就清空数据同时数据也保存到数据库里了。我后来想了你给我的代码是单独一个按钮的。希望版主再次帮忙一下下。
|||Excel精英培训
Powered by2012年10月 移动平台大版内专家分月排行榜第二2012年7月 移动平台大版内专家分月排行榜第二2012年6月 移动平台大版内专家分月排行榜第二2012年5月 移动平台大版内专家分月排行榜第二
2012年10月 移动平台大版内专家分月排行榜第二2012年7月 移动平台大版内专家分月排行榜第二2012年6月 移动平台大版内专家分月排行榜第二2012年5月 移动平台大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。“存盘数据出错，请用数据维护工具清除出错数据”如何处理??WIN7系统
我的图书馆
“存盘数据出错，请用数据维护工具清除出错数据”如何处理??WIN7系统
由于软件服务器升级，需要将原来安装软件完全卸载，然后重新安装最新渤海证劵客户端。
1、如果不需要备份数据，卸载完成后，直接安装最新客户端就OK。
2、如果有“自选股”等其他信息需要保留，则在卸载软件前，需要按照以下操作进行处理:
①找到安装路径中文件夹:
找到 nodetool.exe 安装程序 并启动→点击 数据备份→下方匡 全选→点击 确定→执行操作
将文件备份到桌面或者自建文件夹
②开始→控制面板→程序/程序卸载，将渤海证劵软件卸载 并全部清理 即完全卸载。
③去 渤海证劵官网下载最新客户端 安装完成后 进入系统→系统维护工具 将备份数据还原。
以上操作完成即可。
发表评论：
TA的最新馆藏[转]&怎样做才能把手机里保存的账号和数据清除干净？|数码大家谈 - 数码之家
查看完整版本: [--
赞助商链接
每个人都有一两台旧手机，包括我自己，但出于各方面安全考虑，这些手机只能丢在家里，既不敢丢掉，也不敢卖掉，就怕里面登陆过QQ的账号、淘宝账号、微信账号给别人盗了，到底怎样能把手机里保存的账号和数据清除干净？有没有类似这样的应用吗？以安卓为例，大家来讨论讨论啊。
赞助商链接
可以重做系统&&&&如果还是觉得不合适&&就拆机把F换掉&&&&绝对安全
赞助商链接
安卓 直接 恢复出厂设置 就可以了...在设置里
把F换掉，技术含量太高，不会搞，难道恢复出厂设置就没了吗？
:把F换掉，技术含量太高，不会搞，难道恢复出厂设置就没了吗？ ( 12:44) 不行的&& 就算是重做系统 也是不安全的， 如果里面真有自己非常在意的数据&&还是换F&&最保险的方式了
开着机扔水里，一了百了
那看了只有收藏了。估计后代就不懂这是啥东东了
装Ｂ的就是这样，　格机就好了．　谁闲得蛋疼还去弄你一个登过ＱＱ的手机发几万恢复一个暗码来破解啊，好像别人的二手机没登过ＱＱ一样．
楼主把手机送给我，我绝不会盗你账号
来楼主。我教你，在汽油里泡一泡，在扭一扭，打火机一点，碰的一下就干干净净了
打火机的高压发生器，实在不行，上锤子。
一锤子砸碎，仍炉子烧了，你那东西就非常非常安全了！谁也不可能在把数据读出来了！
既然你的手机中有惊天的机密为什么还要转让掉？不差这几个钱吧，直接上粉碎机。
格机 双清 再不然 重新擦除后引导re&&
铝热剂。不用谢。
据说格机的数据可以被恢复，据说F里的数据要反复覆盖N次后才无法被恢复。以上据说是看到MBP里抹除数据居然有1次和几次之分，惊呆之余在百度里查的。话说LZ的手机里有多少秘密啊！？？&&
粉碎 ---研磨--重熔
放到浓硫酸里面泡泡，什么都没有了
进REC也就是所谓的刷机模式，有个双清的项目，双清一下，再然后恢复出厂设置
刷机工具好像有擦除工具的。
仅仅是讨论一下用什么办法彻底清除数据，何必进行语言上的攻击呢？装啥管你什么事呢？这里是技术区只想借此话题讨论一下技术罢了！
小心手机照片门啊
这个没想过，我用旧的手机，两个去处，一送人。二，留作备用机。目前还没有卖过的。手机本身就不值钱，二手的就更不值钱了。几十块钱，说花没了就花没了。还不如放那备用。怎么说，也是一个物件，对吧？
:把F换掉，技术含量太高，不会搞，难道恢复出厂设置就没了吗？ ( 12:44) 换F难得麻烦，直接大锤砸碎或者丢火里吧，哈哈哈
装Ｂ的就是这样，初始化手机就好了．　谁闲得蛋疼还去弄你一个登过ＱＱ的手机发几万恢复一个暗码来破解啊
想的太多，智能智能的刷机换系统恢复出厂，非智能的刷机或恢复出厂，数据覆盖，问题有什么机密值得别人窥视你的隐私&&&&&&
一锤子搞定的事……
查看完整版本: [--
Powered by
Gzip enabled[转载]通达信交易软件操作方法：自选股如何清空和另存板块&通达信如何备份数据【转藏
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
盘后我们怎么去快速选出超短线需要密切关注的票呢？其实选股方法少说也有几千种，我想没有人统计过，我用过许多选股指标，不是选不出股票就是选出一大堆，而且成功率也不高。我说过我是个喜欢折腾的人，折腾指标、折腾预警、折腾选股，经过一些日子实践，针对超短线，总结出一套自己的选股方法，又快成功率又高，现用图文讲解公布于博友，好不好我不敢说，算是抛砖引玉吧。
1、选择点菜单里的“功能”－－“选股器”－－“综合选股”－－“实时行情选股”－－“换手率”，设置条件：换手率&3，选择周期为“日线”，再点加入条件，最后点选股入板块，然后新建板块名称：“MACD选股”，点确定，这样换手率大于3的票就选出来了，目标缩小到186个股票。
2、“指标选股”－－“趋势型”－－“MACD”，设置条件：MACD&0，点“改变范围”－－“MACD选股”，选择周期为“日线”，再点加入条件，最后点选股入板块，然后新建板块名称：“M1”，点确定，将日周期的MACD大于0的股票选入到M1板块，目标缩小到52个股票。
3、重复第2步，只是改变范围要选“M1”，选择周期为“60分钟”，将60分钟的MACD大于0的股选入到“M2”。这样就将60分钟周期的MACD大于0的股票选入到M2板块，目标缩小到45个股票。
4、再重复第2步，只是改变范围要选“M2”，选择周期为“30分钟”，将30分钟的MACD大于0的股选入到“M3”。这样就将30分钟周期的MACD大于0的股票选入到M3板块，目标缩小到43个股票。
5、、“指标选股”－－“超买超卖型”－－“KDJ”，设置条件：J&D，点“改变范围”－－“M3”，选择周期为“日线”，再点加入条件，最后点选股入板块，然后新建板块名称：“K1”，点确定，将日周期的KDJ的J大于D的股票选入到K1板块，目标缩小到20个股票。
6、重复第5步，只是改变范围要选“K1”，选择周期为“60分钟”，将60分钟的KDJ的J大于D的股选入到“K2”。这样就将60分钟周期的KDJ的J大于D的股票选入到K2板块，目标缩小到18个股票。
7、再次重复第5步，只是改变范围要选“K2”，选择周期为“30分钟”，将30分钟的KDJ的J大于D的股选入到“K3”。这样就将30分钟周期的KDJ的J大于D的股票选入到K3板块，目标缩小到18个股票。大概看一下，去除不合符上面选股条件的，最后选出14个票，节后盘中关注。
K3板块就是我们需要的自选，别看步奏多，熟练后点来点去非常快，我一般选股不会超过3分钟，而且成功率不错的，不管用什么股票软件。这也是我每日复盘的一个内容，选出票后再仔细分别出重点关注票。要做短线，就不要买短线还在下跌的股票，这样选出来的股票，属与强强联合型，保证有你满意的股票，当然剩下的股票本不多了，再次甄别会很快，最后就看你甄别的能力和盘中买点的把握了。　　
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
& 通达信自选股如何清空和另存板块
行情软件登入后,进入自选股行情界面。
右键点击任何一行，选择批量操作，批量操作所有股票（点“是”），然后点全选（或者手点勾）。
1.之后点加入板块就可加入任何一个自定板块，也可以再点新建板块。
2.点从板块中删除并确认，就全部清空了。
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
通达信如何备份数据
告诉您一个备份各种数据的办法，以后重新安装的话就方便了。
如何将“自选股”从我的通达信复制到另外安装的一个通达信？
方法一:菜单:
系统-&数据维护工具-&数据备份设置一备份路径,将你的自定板块备份到这个目录下,然后将此目录拷贝回家,在家里,也进入数据维护工具,使用数据恢复
方法二:按Ctrl+D进入系统设置-&板块-&选中自选股,再选择右边的导出按钮将导出后的文件拷贝回家,在家里,也进入系统设置中的板块,选中自选股,再选择右边的导入按钮
方法三:将整个T0002拷贝回家,覆盖家里运行目录下面的T0002
方法四:将T0002目录下的block.cfg文件和blocknew拷贝回家,放到家中电脑集成版运行目
T0002目录下的文件说明
如果重装到一个新位置，只需将整个T0002拷贝过去就可以了,所有的个性化数据都在此目录下
Advhq.dat 星空图相关个性化数据
Block.cfg 板块设置文件
cbset.dat 筹码分析个性化数据
CoolInfo.Txt 系统备忘录
Line.dat 画线工具数据
MyFavZX.dat 资讯收藏夹数据
newmodem.ini 交易客户端个性化数据
padinfo.dat 定制版面个性化数据
PriCS.dat,PriGS.dat,PriText.dat 公式相关数据
recentsearch.dat 最近资讯搜索数据
Scheme.dat 配色方案
tmptdx.css 临时网页CSS文件
user.ini 全局个性化数据
userfx.dat K线图个性化数据
以下文件与设置的预警信息有关：
Col_warn.dat
Col_warn_self.dat
Col_warn2.dat
ColwarnTj.dat
[blocknew] 板块目录
[cache] 系统数据高速缓存
[zst_cache] 分时图数据高速缓存
[coolinfo] 系统备忘录目录
[Invest] 个人理财数据目录
[PAD] 定制牘面存盘文件
通达信自选股的格式
自选股存放在安装目录T0002blocknewZXG.blk文件
此文件是一个文本文件,一行代表一只股票,
每行的第一个字符表示市场,'0'表示深圳,'1'表示上海,跟后的字符串表示股票代码.
比如1999999表示上证指数,0000002表示深万科
通达信目录结构
vipdoc:下载或缓存的历史数据目录
diary:投资日志目录
RemoteSH:缓存的上海F10
RemoteSZ:缓存的深圳F10
Ycinfo:缓存的公告消息
安装目录下的SZ.*,SH.*是缓存的盘中数据文件
T0002:个人信息目录,内有公式和自选股,个人设置等信息
Advhq.dat 星空图相关个性化数据
Block.cfg 板块设置文件
cbset.dat 筹码分析个性化数据
colwarn3.dat 行情栏目和预警个性化数据
colwarnTj.dat 条件预警个性化数据
CoolInfo.Txt 系统备忘录
Line.dat 画线工具数据
MyFavZX.dat 资讯收藏夹数据
newmodem.ini 交易客户端个性化数据
padinfo.dat 定制版面个性化数据
PriCS.dat,PriGS.dat,PriText.dat 公式相关数据
recentsearch.dat 最近资讯搜索数据
Scheme.dat 配色方案
tmptdx.css 临时网页CSS文件
user.ini 全局个性化数据
userfx.dat K线图个性化数据
[blocknew] 板块目录
[cache] 系统数据高速缓存
[zst_cache] 分时图数据高速缓存
[coolinfo] 系统备忘录目录
[Invest] 个人理财数据目录
SUPERSTK下的文件:
SYS.DTA 存放系统提供的公式
USERDATA下的文件：
AUTOBLK.CFG:自动板块设定
SELF.DTA 存放用户自编的公式
BLOCK文件夹下的文件：
*.IBK 板块指数定义
*.BLK 板块定义
*.EBK 条件选股结果
SELF 文件夹下的文件：
*.WSV 保存页面文件
ALERT.DAT 历史预警纪录
EXTDATA.INF 扩展数据定义
*.CEP 保存组合条件选股条件
TEMPCMPD.CEP测试附加条件
*.INV 用户个人投资纪录
*.TPT 保存指标模板
SELF年月日.DTA 每日自动公式备份文件
TEST 文件夹下的文件：
*.TST 存放系统测试结果
*.OPT 存放参数优化的结果
PARAM参数指引文件夹
*.PRM 存放参数指引的结果
TABLE文件夹下的文件：
*.ESS数据表文件
*.ESD数据表文件（带数据保存）
SelfData文件夹下的文件：
*.str 字符串数据
*.oth 与股票无关序列值数据
Pattern 文件夹下的文件
*.PIN 模式匹配设计
*.PWT模式匹配方法
SpotAna文件夹下的文件:
*.SPT 定位分析结果
Relate文件夹下的文件:
*.RTL 相关分析结果
Posible文件夹下的文件:
*.PSB 预测分布设计
DATA件夹下的文件：
DAY.DAT 日线数据
EXTDAY.DAT 扩展数据
MIN.DAT 5分钟线数据
REPORT.DAT 当天的分笔成交数据
STKINFO.DAT 代码表/即时行情数据/财务数据/除权数据
*.PRP 历史回忆数据，一天一个文件
NEWS文件夹下的文件：
*.TXT 财经报道、上交所公告、深交所公告
1. 自选股放在通达信软件
T0002blocknew/zxg.blk
文件中目录下
2. 通达信备份可用通达信自身工具数据维护工具自己备份：工具栏选 系统——数据维护工具
见图通达信数据维护工具
这样下载通达信5分钟数据！
看到许多使用通达信的朋友不能下载5分钟数据了，实际上股软并没有出现问题，只是原有的数据已满。将tdxvipdocshfzline，tdxvipdocszfzline，将两个文件原有的数据清空（删除）后就可以继续下载了！(看图 5分钟数据1)
单击：vipdoc文件打开后，在单击【sh】,在单击分时文件夹【fzline】打开后将内容删除，
将上海，深圳两市的分时数据删除后即可下载！
各种版本的通达信股软，新下载安装的由于【fzline】没有分时数据的记录，可以随时下载5分钟数据！(看图 5分钟数据2)
（源自：百度。360读书馆）
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。