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
Ïà¹ØÎÊ´ð£º
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......