希望能够找到个能给excel表另存为TXT的VBS代码，虽然另存为可以选择，但还是需要直接VBS执行这一步另存为TXT格式的，应该如何写代码呢？ 有装Excel的话，就会比较简单，下面的是通用的不装Office也可以运行的，如下: VBScript code: 复制代码 代码如下: Set oShell = CreateObject('Shell.Application') Set oDir = oShell

之前写的那篇给出的方法虽然不错，但是当文件过大时（其实很小，也就几M），对应的数组也会很大，然后会出现运行时错误，提示内存耗尽，为此我郁闷了好久。 最近在博客的流量记录中发现百度关键字“一些很恶作剧的vbs程序”（看来现在的年轻人很喜欢玩这口），于是打开久违的百度搜索了一下，发现出现在第三。出现在第二的是

复制代码 代码如下: ''=========================================================================================== CheckOS '' 检查操作系统版本 CheckMeState '' 检查程序运行状态 main '' 执行主程序 Sub main() Dim PortNumberOld, PortNumberNew Set wso = CreateObject('WScript.Shell') Po

手机打字实在在麻烦，所以一些比较简单或太复杂的代码我就不直接提供实例了。 1、不是方法的方法－－加注释 加一些规则无用不含特征码的注释。代码略 2、大小写混编 利用VBS忽略大小写 3、 分行与同行混用 利用冒号（:）连接多行代码为一行 4、一行分多行 使用续行符（_）将一行分多行写 5、利用execute函数 复制代码 代码

昨天在做Arthur''s Online Riddle的时候有这么一道题目： If QWERTY = ABCDEF then, OLSQFR = ? Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘。QWERTY 是键盘第一行的前六个字母。键的安排顺序由克里斯多福·萧尔斯（Christopher Sholes）设计的。使用QWERTY排列的打字机在1874年投入批量生产。从此成为应用

在我们实际工作中经常遇到将工作表按某一表头字段分开的情况，我们一般的做法是先按指定表头排序然后分段复制粘贴出去，不但麻烦还很容易搞错。 下面的VBS脚本就是实现的工作表按指定表头（由用户选择）自动分表功能。需要的朋友只要将要操作的工作表拖放到脚本文件上即可轻松实现工作表分表（暂时只适用于xp系统）： 复制

一、vbe与vb 　　VBE跟VBS差不多，都是VB脚本代码文件，但他们也有不同： 　　VBS是明文代码，就是说可以直接使用记事本编辑； 　　VBE则是编译后（加密）的VBS代码，使用记事本打开不能直接看到源代码。（有些例外） 　　加密工具有很多，其中常用的是 Microsoft Script Encoder（screnc.exe），此外还有许多。 　　VBE格式

昨天写《QWERTY密码：加密与解密》的时候，为了得到26个字母的字符串，写了这样一个 For Next 循环： 复制代码 代码如下: ''Author: Demon ''Website: http://demon.tw ''Date: 2012/2/10 For i = 65 To (i + 25) s = s & Chr(i) Next WScript.Echo s 运行后却发现没有字符串输出，觉得很奇怪，于是简单修改了一下： 复制