vb¿ØÖÆEXCELµÄÒ»¸öÎÊÌ⣿
ÒÔÏÂÊDzâÊÔ´úÂ룺
Set o_EXL = CreateObject("Excel.application")
Set o_EBKs = o_EXL.workbooks
If Dir(pÎļþÃû) <> "" Then
o_EXL.Visible = False
o_EXL.displayalerts = False
Set oeb = o_EBKs.Open(pÎļþÃû)
Set osheets = oeb.worksheets
n = osheets.Count
s = osheets(1).Name
End If
o_EBKs.Close
o_EXL.Quit
ÎÒÏëÒªµÄÊDzÙ×÷excelÔÚºǫ́ÔËÐÐ
1.µ±ÔËÐÐʱûÓÐÕýÔÚ²Ù×÷µÄexcelÎļþʱÊÇ¿ÉÒÔµÄ
2.µ±ÔËÐÐʱÓÐÕýÔÚ²Ù×÷µÄÆäËüexcelÎļþʱ¾ÍÓÐÎÊÌâÁË£¬µ±Õâ¶Î´úÂëÍÆ³öʱ
ÔÚexcelÀïÕâ¶Î´úÂë²Ù×÷µÄÎļþ²¢Ã»Óйرգ¬¶øÕâ¸öÎļþ²»ÏëÈÿ´µ½£¬ÈçºÎ½â¾öÄØ£¿
°¡£¬ºÃÏñÊǵÄ
ÎÒ°Ñ
o_EBKs.Close
o_EXL.Quit
·Å´íµØ·½ÁË
·ÅÔÚÀàÏú»Ùº¯ÊýÖÐËÆºõ²»ÐУ¬ÂíÉÏÍ˳ö¾Í¿ÉÒÔÁË
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......