lostCity

使用EXCEL自动刷新文本数据文件

目的: http://www.lovegirl.org.cn  
    文本数据文件浏览不便，数据变化不直观，使用excel表格驱动方式，并且通过图表方式可以很方便的浏览文本数据，同时也体现文件数据的变化。

操作: http://www.lovegirl.org.cn  
    1、使用导入文本数据方式导入文本数据内容。数据->导入外部数据->导入数据，注意选择文本方式数据，同时注意文本数据分割符，选择正确分割数据的符号，直道完成，则数据文件成功导入到excel中。 http://www.lovegirl.org.cn  
    2、使用自动刷新。数据->导入外部数据->数据区域属性，选中自动刷新，最小刷新时间为1分钟，可以同时取消选中“刷新时提示文件名”。由于文件名存储的是绝对路径，当文件拷贝到别的地方时，很可能由于路径发生变化导入数据失败，可以通过vba脚本方式来修改文件路径。这样修改:Sheet2.QueryTables.Item(1).Connection = "TEXT;" & Application.ActiveWorkbook.Path & "\data.txt" 意思就是取当前excel文件路径下的data.txt文件为数据源文件进行数据导入。 http://blog.zj.com  
    3、插入图表。插入图表并指定图标序列和数据区域内容即可打印数据趋势图。数据表内容自动刷新所以图标曲线也会自动刷新。 http://www.lovegirl.org.cn  
    4、取消excel文件打开时候的“启用自动刷新提示”。出于数据安全性的考虑，excel默认会在下次打开文件时提示是否自动刷新，但是这样往往还是会有些不便，通过修改注册表方法可以使得不再提示启用与否。 http://www.lovegirl.org.cn  
直接使用vba脚本修改如下： http://www.lovegirl.org.cn  
? 对于 Excel 2003, 找到并单击以选择 HKCU\Software\Microsoft\Office\11.0\Excel\Options 。 http://blog.zj.com  
? 对于 Excel 2002, 找到并单击以选择 HKCU\Software\Microsoft\Office\10.0\Excel\Options 。 http://www.lovegirl.org.cn  
? 对于 Excel 2000 SR - 1 和更高版本的 Excel 2000, 定位， 然后单击以选中 HKCU\Software\Microsoft\Office\9.0\Excel\Options 。 http://blog.zj.com  
    mReg.SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Excel\Options", "QuerySecurity", 1, REG_DWORD http://www.lovegirl.org.cn  
详细看下面连接：http://lostcity.blog.zj.com/blog/d-109240.html http://blog.zj.com  
    5、附件。防止以后忘记提供附件如下。 http://blog.zj.com  
   
使用EXCEL自动刷新文本数据文件.rar