- 博客(15)
- 收藏
- 关注
RSS订阅原创 VBA创建文本文件、读写文本文件
<br />Private Sub CommandButton1_Click()<br /> Dim gPath As String<br /> Dim sFile As Object, Fso As Object<br /> <br /> gPath = Application.ActiveWorkbook.Path<br /> Set Fso = CreateObject("Scripting.FileSystemObject")<br /> Set sFile =
2010-08-03 20:42:00
20949
原创 VBA使用FileSystemObject将读取或写入文本文件(三)
<br />在上两节中已经详细介绍了FileSystemObject对象的一些属性及方法。那么在这一节里，我们将举例说明如何使用VBA在Excel与文本文件中的导入导出。假设我们有如下数据表及文本文件：<br /> <br /> 现在要实现在这两个文件中的数据按指定的格式进行导入导出。下面我们就先进行将EXCEL数据表中的内容导出到testfile.txt中，并按图中的格式显示。<br /> 一、导出到文本文件的示例代码：Sub Export2TxtFile() Dim fso AsO
2010-08-03 20:30:00
2956
原创 VBA使用FileSystemObject将读取或写入文本文件(二)
<br />在上一节“VBA使用FileSystemObject将读取或写入文本文件(一)”中我们详细介绍了如何创建一个FileSystemObject对象及其对象。那么，在这一节里，将详细介绍FileSystemObject对象在创建或打开文本文件后返回的TextStream对象的一些属性及方法。<br /> 三、FileSystemObject对象返回的TextStream对象的属性及方法说明：<br /> 创建TextStream对象示例：Dim sFile AsObject, fso A
2010-08-03 20:28:00
1259
原创 VBA使用FileSystemObject将读取或写入文本文件(一)
<br />有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject对象来进行操作。在接下来的几篇里我们介绍如何使用FileSystemObject对象操作文本文件的。工欲善其事，必先利其器，那么我们就先花几篇文章来详细介绍下FileSystemObject对象。<br /> 一、如何创建FileSystemObject对象<br /> 在VBA中，是通过CreateO
2010-08-03 20:26:00
1544
原创 求一组数据中的最大值及最小值
<br />这是起泡法，建议你多读有关算法的书 <br /><br /><br />Private Sub Form_Click()<br />Dim d()<br />d = Array(45, 12, 7, 0, -5, 100, 3, 58.2)<br />MaxData d<br />End Sub <br /><br /><br />Sub MaxData(Data())<br />Dim Max As Single<br />Dim i As Integer<br />Dim h As Inte
2010-08-02 00:09:00
5693
原创 取出TListView选中项的某一列值
<br />ListView1->Selected->SubItems->Strings(4)吧 ,Listview 从0开始算起 <br /> <br /> 第一列=ListView1->Items->Item[0]->Caption; <br /> 第五列=ListView1->Items->Item[0]->SubItems->Strings[4]; <br /> <br /> <br />2行3列 <br /> ListView1.Items[1].SubItem
2010-06-28 23:02:00
2753
原创 使用数据库Data文件的MDF、LDF在DOS中创建数据库
create database 数据库名 on (MDF数据库文件名字及存在位置),(LDF数据库文件名字及存在位置) for attch 列如：要创建数据库名为：HWCST_V100R002首先将HWCST_V100R002 create database HWCST_V100R002 on (FileName="D:/Program Files/Mierver/
2010-03-15 10:21:00
796
原创 该怎么样爱一个人才叫做真的爱
如果你爱一个人，随遇而安，让他/她自由的飞，如果最后他/她还是回到你的身边，那就是命中注定的。”看到这句话，我猛然醒悟。 爱的感觉，总是在一开始觉得很甜蜜，总觉得多一个人陪，多一个人帮你分担，你终于不再孤单了，至少有一个人想着你、恋着你，不论做什么事情，只要能在一起，就是好的，但是慢慢的，随着彼此的认识愈深，你开始发现了对方的缺点，于是问题一个接着一个发生，你开始烦、累甚至想
2010-01-20 14:17:00
495
原创 Steve Jobs(乔布斯)
要有勇气来追随你的心和直觉，只有内心能告诉你，自己想要成为什么样的人。”内心的声音会告诉你，做什么最快乐、最有价值，什么能留下更多，哪些事会让你每天等不急想工作，周末都不想休息。
2009-12-17 13:04:00
395
原创 合格程序员每天每周每月每年应该做的事
程序员每天该做的事 1、总结自己一天任务的完成情况 最好的方式是写工作日志，把自己今天完成了什么事情，遇见了什么问题都记录下来，日后翻看好处多多 2、考虑自己明天应该做的主要工作 把明天要做的事情列出来，并按照优先级排列，第二天应该把自己效率最高的时间分配给最重要的工作 3、考虑自己一天工作中失误的地方，并想出避免下一次再犯的方法 出错不要紧，最重要的是不要重复犯相同的错误，那是愚蠢 4、考虑自
2009-11-27 01:30:00
327
原创 笑谈协同OA的功能
远在老家农村的老妈，知道明天下午4点儿子开完会，而自家的菜园子也可以在下午3点半前浇完水。这叫日程管理和工作计划安排；下午3：30，小侄女提前30分钟到菜地找到老妈，提醒要去打电话。这叫工作提醒；老妈提出让大侄子骑自行车带他去乡里电话亭打电话。这叫共享资源申请；大侄子说那辆新自行车被他老爸骑走了，只有委曲坐那辆旧自行车去。这叫共享资源计算和领用；到了乡政府门口的电话亭，老妈带上老花镜，翻开随身带的
2009-10-17 22:09:00
428
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人