vb ¿ØÖÆ excel´òӡʱµÄ´òÓ¡ÇøÓòÉèÖÃ
ÈçÌ⣬ÀûÓÃExcel½øÐÐÊä³öµÄʱºò£¬Ï붯̬µÄÉèÖôòÓ¡ÇøÓò¡£
ÈçÏ£º
xlSheet.PageSetup.PrintArea = xlSheet.range(Cells(1, 1), Cells(xx, 14)).Address
ÆäÖУ¬xx ÊÇÒ»¸öÕûÐΣ¬ÓÃÀ´¿ØÖÆÒª´òÓ¡µÄÐÐÊýµÄ¡£µ«ÕâÀïÿ´ÎÔËÐж¼»áÌáʾ´íÎó¡£ÈçÏ£º
ʵʱ´íÎó: 1004
¶ÔÏó Range µÄ·½·¨ ¡°_WorkSheet¡± ʧ°Ü¡£
ÎÒµÄÒâ˼ÊÇÄܹ»ÓÃÒ»¸ö±äÁ¿À´¿ØÖÆËù´òÓ¡µÄÐÐÊý£¬Çë´ó¼ÒÖ¸½Ì¡£
ÊÔÊÔxlSheet.range(Cells(1, 1), Cells(xx, 14)).Address()
xlSheet.range(xlSheet.Cells(1, 1), xlSheet.Cells(xx, 14)).Address
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......