主题：分割文本文件

老师好，附件是代码，程序是通的，但不是我需要的结果。我需要能够把A列的数据自动分成不同的数据段，比如1到2之间的数据用红色表示，2到3之间的数据用绿色表示，3到4之间的数据用紫色表示。程序能够自动根据数据分发布范围自动分段，然后各段用不同的颜色表示，请问如何改代码。多谢。

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目38.zip

程序能够自动根据数据分布范围自动分段(比如分成10段），然后各段用不同的颜色表示。

请问老师，下面的代码只能向订单.xls加入一个表，我需要在一个Excel加入多个表该如何做，比如加入用户表（假设字段是一样的），怎么改代码？谢谢

 

 

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价,产品" '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

参考

 

Dim ex As New Exporter
ex.SourceTableName = "表A" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出
ex = New Exporter
ex.SourceTableName = "表B" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出

请问老师，下面代码红色报错，我需要当选中RadioBtnIncrease时，SPIncrease=YES；当选中RadioBtnDecrease时，SPDecrease=YES。请问如何写代码？谢谢

 

Dim SPIncrease,SPDecrease As String
Dim rdo1,rdo2 As WinForm.RadioButton
rdo1 =Forms("Input").Controls("RadioBtnIncrease")
rdo2=Forms("Input").Controls("RadioBtnDecrease")
rdo1.Checked = True

If rdo1.Checked  Then
SPIncrease=YES
End If

比如

 

If rdo1.Checked  Then
    SPIncrease="YES"
End If

 

如果报错，请说明报什么错。

请问老师，如何判断硬盘存在，比如判断D盘、E盘是否存在？如何写代码？就是程序如何检查D盘、E盘是否存在？

 

If FileSys.DirectoryExists("e:\") Then
    msgbox("存在")
Else
    msgbox("不存在")
End If