è¿ä¸ªææ¯è¿ä¹å®ç°ç.è¦ç¨å°
Excel.Application
Set xlapp = CreateObject("Excel.Application") 'æ¿æ´»EXCEL
xlapp.Visible = True '让EXCELå¯è§
Set xlbook = xlapp.Workbooks.Open(App.Path + "个人ç®å.xlt")
'æå¼å·¥ä½ç°¿ï¼strDestination为ä¸ä¸ªEXCELæ¥è¡¨æ件
Set xlsheet = xlbook.Worksheets(1) '设å®å·¥ä½è¡¨
è¿ä¸ªæç¹åæ¯vb6çãvb.netä¹æç¸åºçæ¹æ³ç.æ»ä¹æ¯
excel.application ç¨å°è¿ä¸ªå°±å¯ä»¥äº.å¿
è¦çè¯å¯¼å
¥excelçdllæ件.
è¿æ ·ä½ å°±åç°ãå¯ä»¥ç¨vb.netæ¥å¯¹excelæ¥æä½.ä½ å¯ä»¥æ¥ä¸å¾®è½¯çmsdnãæå
·ä½çå±æ§æ¹æ³.
å¦:
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
er.Value = "gordon1117"
ef.Visible = True ç®ååºç¨äºä¸ä¸ªå¯¹è±¡:application,worksheetårange,ä¸è
çå
³ç³»åºè¯¥æ¸
æ°,åå°è¿ç¹å°±è½ä»åºæ¬å¼å§åäº:)æ ¼å¼è®¾ç½®é½å¨range对象,åªä¸è¿å¨è®¾ç½®å¯¹é½å±æ§ä¸æ¯verticalalignmentåhorizon
range ç¨æ¥å®ä½ã
ç¶åä½ å¯ä»¥å¾ªç¯ææ°æ®è¾åºå°æå®äºæ ¼å¼çexcelæ件éäºå§ãå
¶å®è¿æ ¼å¼é½æ¯å¯ä»¥ç¨åºæ§å¶ç好好å¦ä¸å§.
å¯ä»¥åèä¸ä¸è¿ç¯æç«
http://blog.csdn.net/hawordcheng/archive/2006/10/26/1351931.aspx