另存为txt格式：Sheets(1).ActivateActiveWorkbook.SaveAs Filename:="E:\etl_folder\", FileFormat:=xlTextMSDOS选择Personal Macro WorkBook 可以应用于所有excel
分类：
编程语言 时间：
2015-05-12 15:10:19
阅读次数：
183
在Excel 中编写VBA 代码，最常做的事可能就是操作表单中单元格里的数据。我这里总结一下如何从VBA 代码中操作单元格的数据。在VBA 代码中操作单元格需要用到Range 对象，Range 是Excel 库(即Excel.exe文件)提供的一个类，封装了对表单中单元格的所有操作。Range 对象...
分类：
编程语言 时间：
2015-05-08 20:11:41
阅读次数：
131
添加引用 "Scripting.FileSystemObject" (Microsoft Scripting Runtime) '用于操作文件、目录Sub 数据整理部分()'' 数据整理到新的Sheet'' Dim fso As New FileSystemObject Dim fold...
分类：
编程语言 时间：
2015-05-08 01:31:27
阅读次数：
168
首先说明一下，公司每个月末都要求员工填写考勤信息，然后发了个模板，我觉得每次都要填写日期和星期几这样的信息比较繁琐，所以就想了一个偷懒的办法，而且对模板样式也做了一下变更，使其信息展示效率得到了提高。简单来那就是使用Office中自带的VBA功能来对考勤模板中类似日期这样有规律可循的栏位进行自动化的...
分类：
编程语言 时间：
2015-05-04 21:48:12
阅读次数：
157
Sub do_loop循环判断()
Dim cj%
cj = 1
Do
cj = cj + 1
If cj > 10 Then
Exit Do '退出循环
Else
If Cells(cj, 2) >= 90 Then Cells(cj, 3) = "优秀"
If Cells(cj, 2) >= 80 An...
分类：
编程语言 时间：
2015-05-01 13:29:51
阅读次数：
162
Sub select多条件判断()
Select Case Sheet1.[b1].Value
Case Is > 0
MsgBox "大于0"
Case Else
MsgBox "小于或等于0"
End Select
End Sub
Sub select多条件判断2()
Select Case Sheet1.[b1].Value
Case "12"
Sheet1.[a1] = "你输入的值...
分类：
编程语言 时间：
2015-05-01 12:02:52
阅读次数：
177
含有excel,word ,accessVBA开发好帮手，想使用下载吧，我现在开发，都在用他。http://files.cnblogs.com/files/CatDo/Office%E7%BC%96%E7%A8%8B%E6%89%8B%E5%86%8C%E5%90%88%E9%9B%86%28CHM...
分类：
编程语言 时间：
2015-04-30 12:03:56
阅读次数：
143
Sub 属性赋值()
Sheet1.Name = "工作表1"
Sheet1.Range("a1").Value = "王小涛_同學"
End Sub
转载请注明作者与出处：http://blog.csdn.net/u013511642 王小涛_同學...
分类：
编程语言 时间：
2015-04-30 09:00:44
阅读次数：
136
Sub 常量()
Const pi = 3.1415926
End Sub
Sub 变量()
Dim a As Integer
a = 100
a = 200
End Sub
Sub 应用()
Const pi = 3.1415926 '常量
a = 200 '变量,可不用声明
Debug.Print pi * a '在立即窗口显示
End Sub 转载请注明作者与出处：ht...
分类：
编程语言 时间：
2015-04-30 08:58:34
阅读次数：
148
Sub 选择方法()
Range("a1:a10").Select '因为没有写工作表名,则默认为活动工作表
End Sub
Sub 复制方法()
Sheet1.Range("a1:a10") = "王小涛_同學" '将值写入到a1----a10区域
Sheet1.Range("a1:a10").Copy Sheet2.Range("a1") '将表一的a1---a...
分类：
编程语言 时间：
2015-04-30 08:58:30
阅读次数：
135
