VBÖеÄСÎÊÌâ - VB / Êý¾Ý¿â(°üº¬´òÓ¡£¬°²×°£¬±¨±í)
VBÖÐ µÄDataEnv1.Connection.ConnectionString=connstring
ÓÐʲôÓÐ .ÒѾ¶¨ÒåÁËÒ»¸öÊý¾Ý¿âµÄÁ¬½Ó
µ«DataEnvl ÊÇϵͳ¶¨Ò廹³ÌÐòÔ±¶¨Òå
DataEnv1Ã²ËÆ ÊǸö±¨±í¿Ø¼þ
Êý¾Ý»·¾³£¨DataEnvironment£©ÊÇϵͳ¶¨ÒåµÄ£¬¸÷ÖÖÊôÐÔÒª³ÌÐòԱд´úÂëÐ޸ģ¬¿ÉÓÃÊó±êÓÒÑ¡Ôñ¼üÊôÐÔÈ¥Ð޸ġ£
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......