VBÖÐÔõÑù½«´ÓSQLµ¼³öµÄ.xlsÎļþ¼ÓÉÏÖ»¶ÁȨÏÞ£¿
ÏÖÔÚÓöµ½¸öÎÊÌ⣬Ï뽫´ÓVBÖе¼³öµÄexcelÎļþ×Ô¶¯¼ÓÉÏÖ»¶ÁȨÏÞ£¬·ÀÖ¹Ð޸ġ£²»Öª´ÓÄÇÈëÊÖ
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes = 1
ÔËÐÐSet f = fs.GetFile(fs.GetFileName(filespec)) Õâ¾äÌáʾ³ÌÐòºô½Ð»òÒýÊý²»ÕýÈ·¡£ÊDz»ÊÇ»¹Òª¶¨Òåʲ÷᣿
fs.GetFile(ÎļþÃû)
°üÀ¨Â·¾¶
Private Sub Command3_Click()
Dim excelapp As Object
Dim excelsheet As Object
Dim excelbook As Object
Dim col As Integer
Dim row As Integer
Set excelapp = CreateObject("Excel.application")
excelapp.Visible = True
Set excelbook = excelapp.Workbooks.Add
Set excelsheet = excelapp.activesheet
Me.MousePointer = 11
ListView1.SortKey = 2
ListView1.Sorted = True
ListView1.Sorted = False
excelsheet.Cells(1, 1) = "¥Í²£"
excelsheet.Cells(1, 2) = "絚¸¹"
excelsheet.Cells(1, 3) = "¤á¾ã¾÷¸¹"
excelsheet.Cells(1, 4) = "¾ã¾÷絪¸¹"
excelsheet.Cells(1, 5) = "¸Ë¤é´Á"
excelsheet.Cells(1, 6) = "¤á±ø絏1"
excelsheet.Cells(1, 7) = "¤á±ø絏2"
excelsheet.Cells(1, 8) = "¤á±ø絏3"
excelsheet.Cells(1
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......
ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд
ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......