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 'ÏÔʾѡÖеÄÁÐ
Ïà¹ØÎĵµ£º
Õâ¶Îʱ¼äÔÚÒÆÖ²ÏîÄ¿µÄ¹ý³ÌÖУ¬Æð³õÎÒÏëÅжÏÒ»¸ö×Ö·û´®ÖÐÊÇ·ñ´æÔÚij×Ö·û£¨´®£©£¬Ö±½ÓµÄʹÓ÷½·¨ÊÇÓÃinstr£¨start£¬string1£¬string2£¬VB compare£©£¬µ«¾¹ý·ÖÎöÔÚVBÖпÉÒÔÖ»ÓÃһϷ½·¨À´Åжϣ¡
1.³£ÓõÄINStr·½·¨
Function InStr([Start], [String1], [String2], [Compare A ......
Ôںܶà VB µÄ×ÊÁÏ¿âÊé¼®ÖУ¬¶¼»áºÜÍêÕûµÄÌáµ½£ºÈçºÎÓÉÆäËûÖÖÀàµÄÎļþÖн«×ÊÁϵ¼Èë×ÊÁϿ⣬µ«ÊÇÈ´ºÜÉÙÓÐÊéÌáµ½£ºÈçºÎ½«×ÊÁÏ¿âÖеÄ×ÊÁÏ£¬µ¼³öµ½¸÷ÖÖ²»Í¬µÄÎļþÀàÐ͵ÄÎļþÖУ¬Á¬ VB µÄ Help ÖÐÒ²ÊÇÕâÑù£¡
»òÐíÊÇ´ó¼Ò¶¼ÈÏΪ×ÊÁÏ¿âÖ÷ÌâµÄÖØµãÊÇÔÚ×ÊÁϿⱾÉí°É£¡
µ«ÊÇ£¬ÔÚʵ¼ÊµÄ×ÊÁÏ¿â³ÌÐòÔËÓÃÖУ¬È´³£³£ÐèÒª½«×ÊÁϿ⵼³öµ½¸÷ÖÖ ......
ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
Èç¹ûÔÀ´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýѰÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat
......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......