Ãö©ó¡uExcel VBA¡vDDE...

EGBT

¦p¼ÐÃD¡GÃö©ó¡uExcel VBA ¡vDDE...

§ÚªºExcel±µ¤WDDE¤§«á¡A

¥ÎVBA¼g

Option Explicit
Dim A As String
Dim X As Integer

Private Sub Workbook_Open()
    A = Range("A1")
End Sub

³o¼Ë¤l¼gªk¡A¦bExcelÀɮ׶}±Òªº®É­Ô¡A±µDDEªºA1Àx¦s®æ·|¥ýÅã¥Ü #N/A

µM«á´N·|¥X²{¿ù»~°T®§¡A°õ¦æ¶¥¬q¿ù»~'13

°ÝÃD¬O¥X¦b­þ¸Ì©O¡H

³Â·Ð¦U¦ì¤j¤jªº¸Ñµª¡I

c_c_lai

¦^´_ 3# EGBT
½Ð¤W¶ÇÀɮסA§Ú¨Ó´ú¸Õ¬Ý¬Ý¡I

EGBT

¤j¤j±z¦n¡G
¤p§Ì­è¸Õ¤F¤@¤U¡A¤@¼Ë¥X²{°õ¦æ¶¥¬q¿ù»~'13
°ÝÃD¦n¹³¬O¥X¦b±µ¤FDDEµM«á¶}±ÒExcelÀɮתº¤@¶}©l
A1·|Åã¥Üµu¼Èªº#N/A
µM«á´N·|¦³¼Æ­È
¦ý¬O³o¤¤¶¡³y¦¨A1¦³°ÝÃD

c_c_lai

¦^´_ 1# EGBT
¸Õ¸Õ¬Ý¡G (¦b¨ú±o­È«e¡A¥ý¦æ§PÂ_¹LÂo)

1.     If IsError(Sheets("Sheet1").Range("A1").Value) Then
   
2.         A = ""
   
3.     Else
   
4.         A = Sheets("Sheet1").Range("A1").Value
   
5.     End If

½Æ»s¥N½X