易截截图软件、单文件、免安装、纯绿色、仅160KB

vb记录集数据导入到excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--将DataGrid导出至Excel,ProgressBar1为进度条,intFirst为从哪一列开始打印,intLast为打印到哪一列
On Error Resume Next
    Dim I As Long
    Dim J As Integer
    Dim K As Integer
    Dim sLast As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "查询结果"
    xlApp.Visible = False '--先隐藏
    ProgressBar1.Value = 0
    Screen.MousePointer = 11
    ProgressBar1.Max = DataGrid1.ApproxCount + 3
    '--设置标题
    sLast = Chr(Asc("A") + intLast - intFirst)
    xlApp.Range("A1:" & sLast & "2").Select
    With xlApp.Selection '--合并单元格
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    ProgressBar1.Value = 1
    xlApp.Selection.Merge
    With xlApp.Selection.Font '--字体
        .FontStyle = "加粗"
        .SIZE = 24
    End With
    xlApp.Range("A1:" & sLast & "2").Select
    xlApp.ActiveCell.FormulaR1C1 = strTitle
    ProgressBar1.Value = 2
    '--设置列
    For K = 0 To intLast - intFirst '显示选中的列
     


相关文档:

VB中 Replace 函数

VB中 Replace 函数
描述
返回字符串,其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数:
参数 描述
expression 必选。字符串表达式,包含要替换的子字符串。 
find 必选。被搜索的子字符串。 ......

用VB Winsock控件创建TCP/IP客户机/服务器程序


转自:http://www.52arm.com/Article_Show.asp?ArticleID=186
 
作者:weidian    ---本站原创    点击数:4721    发表时间:2008-5-7    编辑:sanzang
 
Winsock控件建立在TCP、UDP协议的基础上,完成与远程计算机的 ......

VB无所不能之六:对程序运行的监控 转

作者: 佚名,  出处:IT专家网, 责任编辑: 谢妍妍, 
2010-04-23 11:20
  本文介绍VB对程序运行的监控。
  转眼间,本系列文章已经写到了第六个,今天写点什么呢?
  还是得写,看似VB做不到的事情,那么今天起就写写VB对操作系统的控制吧。
  首先,说一说,VB对于被调用后的程序的监控方法。
  原型函数简 ......

VB 写COOKIE

Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String) As Boolean
Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" (ByVal lpszUrlName ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号