VB操作EXCEL,实现数据读取1、定义Excel操作变量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打开Excel进程，并打开目标Exc...
解析表格Rem 重命名工作表
Sub Rename()
ActiveSheet.Name = "下载源数据"
Rem 删除指定列的指定字符
Dim c%, i%
c = Cells(Rows.Count, 16).End(3).Row
For i = c To 1 Step -1
If Cells(i, 16) = "未支付" Then Rows(i).Delete
Next
Rem 创建新
VB6读写文件操作大全
—— ---------------------------------
'write file
Dim nHandle As Integer, fName As String
fName = "d:\1.txt"
nHandle = FreeFile
Open fName For Output As #nHandle
Pr
