???? "??????? ????????" ???? ???????? ????????? ?????? ???? ???????? ??? ???? Excel. ???? ?? ??????? ???????? ???? ??? ?? ??????? ?????? ???? ???????? ?????? ?? ?? ?????? ???????? ??? ??????? ????? ?????? ?????? ??????? ????? ?? ??? ???????. ????? ??????? ?????? ?? ???????? ???? ???????? ?????? ?? ?? "??????? ????????".
- ??? ???????? ???? ??? ????
- ??? ???????? ???????? ?? ???? ??? ???? ?? ???????
- ??? ???????? ???????? ?? ?????? ????? ADO ??? ???? ?? ??????? ???????? ??????? CopyFromRecordset
- ????? ???? ??????? ?? ???? ??? Excel ????? ??? ????? ??????? ?? ???? ?????? OLEDB ?? ODBC
- ??? ???????? ??? ??????? ?? ??? ??????? ??????? ??? ???? ??? Excel
???? ????? ?????? ????? ????????? ???? ???????? ??? Excel ??? ????? ??????? ????????. ?? ???? ????? ????? ?? ???? ??????? ?? ???? ??? ??????? ????? ?????? ????? ?????? ?? ?????? ???????? ?? ??????? ??????? ?????? ??. ????? ??????? ???????? ??????? ???? ???????? ?????? ?? ???? "??????? ????????":
- ??? ???????? ?????? ?? ??? ??? ??? ????? ?????? ?? ??????? ????? ???? ??????? Excel ?????? ?????? ??? ????? ?? ???? ???
- ??? ???????? ?????? ?? ??? ???? ??? ???????? ADO
- ??? ???????? ??? ?????? Excel ???????? ??????? ?????????? ???????? (DDE)
???? ??????? ??????? ?????? ?? ???????? ??? ?? ?? ?? ??? ??????.
?????? ??? ??????? ?????? Microsoft Office Excel 2007? ????? ??????? ????? ????? Excel 2007 Workbook ?(?*.xlsx) ?????? ??? ??? ????? ?????. ?????? ????? ??? ???? ????? ?????? ?? ???????? ???????? ?? ????? ????????? ???????? ???????:
oBook.SaveAs "C:\Book1.xls"?
?????? ??? ???????? ???????? ?????? ?????? ?? ???????? ????????:
oBook.SaveAs "C:\Book1.xlsx"?
???????? ??? ???? ?? ??? ????? ????? ?????? Northwind ?? Office 2007 ?????????. ??? ????? ?? ???? ????? ????? ????? ?????? Northwind ?? Microsoft Office Online.
??????? ??????? ???????? ???? ???????? ???? ??? ????
???????? ??????? ????????? ????? ??? ???????? ??? ???? ???? ??? ????? ?? ?? ???:
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
?'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application")?
Set oBook = oExcel.Workbooks.Add
?'Add data to cells of the first worksheet in the new workbook
Set oSheet = oBook.Worksheets(1)?
oSheet.Range("A1").Value = "Last Name"?
oSheet.Range("B1").Value = "First Name"?
oSheet.Range("A1:B1").Font.Bold = True
oSheet.Range("A2").Value = "Doe"?
oSheet.Range("B2").Value = "John"?
?'Save the Workbook and Quit Excel
oBook.SaveAs "C:\Book1.xls"?
oExcel.Quit ???? ?? ???? ??? ???????? ???? ??? ???? ?? ??????? ??????? ?????? ??? ??? ??? ???????? ??????. ????? ??????? ??????? ???? ???????? ?? ?? ???? ?? ?????? ??? ????? ????? ??????? ??????? ??????? ?? ??? ???????. ??? ????? ?? ???? ??? ???????
??? ?????? ?? ???? ???? ?????? ???? ???? ???? ????? ??? ???? Excel. ???? ?? ?? ????
Range ???? ???? ?? ??? ??????? ??? ????? ???? ???? ?? ???? ??? ???????? ???? ??????? ??????. ???????? ??? ???? ??? ????? ??????? ????? ???? ?? ???? ?? ????? ??????? Microsoft Windows 95 ?Windows 98. ???? ???? ????? ??????? ??? ?? ???? ?? ??????? ???? ?????? ?? ????? ???? "??????? ????????" (Excel) ?? ????????? ?? ?? ????? ????? ???? ??? ?? ??????? ??? ?????. ??? ?????? ??? ?????? ?? ????? ??????? Windows 95 ?Windows 98 ?? ????? "????? ???????" ??????? (?? ????? ??? ??????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
216400
(http://support.microsoft.com/kb/216400/
)
?PRB: ?????? ???? ????? ?? ????? ?????? ?? ????? ??????? Win 95/98 ???? ??????? ???????? ?? COM ???? ???? ????????
???? ????? ??? ??? ???????? ???? ??? ???? ??????? ??? ???????? ????? ?????. ??? ??? ???? ??? ??????? ?????? ????? ????? ??? Excel? ??? ??? ??? ?????? ???? ??? ??????? ?????? ?? ????????.
?????? ??? ???? ?? ??????? ??? ????????? ???????? ??????? ???????? ??????? Excel? ?????? ?????? ??????? ??????? ?? "????? ????? Microsoft" (?? ????? ??? ??????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
219151
(http://support.microsoft.com/kb/219151/
)
????? ????? Microsoft Excel ???????? ?? Visual Basic
??????? ??????? ???????? ???? ???? ?????? ??? ???? ?? ???? ???
???? ??? ???? ?????? ??? ???? ?? ????? ?????? ??? ?????:
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
?'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application")?
Set oBook = oExcel.Workbooks.Add
?'Create an array with 3 columns and 100 rows
Dim DataArray(1 To 100, 1 To 3) As Variant
Dim r As Integer
For r = 1 To 100
DataArray(r, 1) = "ORD" & Format(r, "0000")?
DataArray(r, 2) = Rnd() * 1000
DataArray(r, 3) = DataArray(r, 2) * 0.7
Next
?'Add headers to the worksheet on row 1
Set oSheet = oBook.Worksheets(1)?
oSheet.Range("A1:C1").Value = Array("Order ID", "Amount", "Tax")?
?'Transfer the array to the worksheet starting at cell A2
oSheet.Range("A2").Resize(100, 3).Value = DataArray
?'Save the Workbook and Quit Excel
oBook.SaveAs "C:\Book1.xls"
oExcel.Quit ?? ???? ??? ???????? ?????? ?? ???????? ???? ????? ?? ??????? ????? ???? ??? ????? ????? ?????? ??? ?????? ??? ??? ?????? ???? ???? ????. ???? ??? ????? ?? ???????? ???????? ???????? ????? ????? ???? ?????? ??? ??? ???? ?? ???? ?????:
oSheet.Range("A2").Resize(100, 3).Value = DataArray ???? ??? ????? ???? ????? (?????? ??????
Range ???? ???? ??????? ???????
Range ???? ??????
Range ???? ???? ??????? ???????
Resize). ?? ????? ????? ?? ????? ??? ???????? ???????? ??????? ???? ??? ???? ????? ????????? ????? ???????
Range. ????? ???? ??? ??????? ????? ????????? ?? ??? ???????? ?????? ?? ?????? ????? ?????? ??? ????? ??????? ???? ???? ??????.
??????? ??????? ???????? ???? ?????? ????? ADO ??? ???? ???? ???
??? ?????? Excel 2000 ???????
CopyFromRecordset ???? ???? ?? ??? ?????? ????? ADO (?? DAO) ??? ???? ?? ???? ???. ????? ???????? ???????? ??????? ??? ????? ????? Excel 2000 ?? Excel 2002 ?? Office Excel 2003 ???????? ???? ??????? ???? Orders ??????? ?? Northwind Sample Database (????? ?????? ????? Northwind) ???????? ???????
CopyFromRecordset.
?'Create a Recordset from all the records in the Orders table
Dim sNWind As String
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
sNWind = _?
"C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _?
sNWind & ";"
conn.CursorLocation = adUseClient
Set rs = conn.Execute("Orders", , adCmdTable)?
?'Create a new workbook in Excel
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")?
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)?
?'Transfer the data to Excel
oSheet.Range("A1").CopyFromRecordset rs
?'Save the Workbook and Quit Excel
oBook.SaveAs "C:\Book1.xls"?
oExcel.Quit
?'Close the connection
rs.Close
conn.Close ?? ???? ??????? ??????? Office 2007 ?? ????? ?????? Northwind? ??? ??????? ????? ?????? ?? ???????? ???????? ?? ???? ???????? ????????:
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ sNWind & ";"?
?????? ??? ????? ?? ???????? ???????? ?????? ?????? ?? ???????? ????????:
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ sNWind & ";"?
???? ?????? Excel 97 ????? ?????
CopyFromRecordset? ???? ????? ???????? ??? ?? ?????? ????? DAO. ?? ????
CopyFromRecordset ?? ?????? Excel 97 ????? ?? ADO.
?????? ??? ???? ?? ????????? ??? ??????? ADO ????????
CopyFromRecordset? ?????? ?????? ??????? ??????? ?? "????? ????? Microsoft" (?? ????? ??? ??????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
246335
(http://support.microsoft.com/kb/246335/
)
????? ??? ???????? ?? ?????? ????? ADO ??? ?????? Excel ???????? ??????? ????????
??????? ??????? ???????? ?????? ???? ??????? ?? ???? ???
???? ????
???? ????????? ???? ?? ?????? ?? ???????? ???? ?? ??????? ?? ???? ?????? ?????. ????? ??????? ???????? ??????? Microsoft Excel? ????? ?????
???? ??????? ?????? ?? ???? ????? ????? ????? ????? ?????? ODBC ?? OLEDB ?? ????? SQL. ????? Excel ??????? ?? ????? ?????? ??????? ???????? ?? ???? ????? ?? ?????? ???? ???? ???????. ???? ???????
????? ????????? ?????? ?? ??????? ???? ?? ????? ?? ???????
CopyFromRecordset:
- ???? Excel ??????? ????? ?????? ??????? ?????? ?? ???? ?????.
- ??????? ??? ????????? ?? ???? ????????? ???? ???? ?????? ?? ??? ???? ?????? ??? ?????? ????? ???????.
- ??? ????? ???? ??????? ???? ??? ???? ????? ?????? ??? ???? ????? ???? ???????? ?????? ?? ????? ?? ???? ????? ???? ???? ??????? ??????? ???????? ??????? (???? ??????? RefreshStyle ?????? ??? ??????).
???? ???????? ???????? ??????? ??? ????? ????? Excel 2000 ?? Excel 2002 ?? Office Excel 2003 ???????? ??????
???? ??????? ???? ?? ???? ??? Excel ???????? ?????? ?? Northwind Sample Database (????? ?????? ????? Northwind):
?'Create a new workbook in Excel
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")?
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)?
?'Create the QueryTable
Dim sNWind As String
sNWind = _?
"C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Dim oQryTable As Object
Set oQryTable = oSheet.QueryTables.Add( _?
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _?
sNWind & ";", oSheet.Range("A1"), "Select * from Orders")?
oQryTable.RefreshStyle = xlInsertEntireRows
oQryTable.Refresh False
?'Save the Workbook and Quit Excel
oBook.SaveAs "C:\Book1.xls"?
oExcel.Quit??????? ???????
???? ????? ??????? ????? Windows ????? ???? ???????? ??? ???? ???. ???? ???????? ?? ????? ?????? ?? ???? ???? ????? ??? ????? ???? ??????? ????? ????? ?????? ????? ??????? ????? ??????? ???? ??? ??? ?????. ???? ???????? ???????? ??????? ??? ???? ?????? Visual Basic ??????? ???? Clipboard (???????) ????? ?? ???? ?????? ??? ?????? Excel:
?'Copy a string to the clipboard
Dim sData As String
sData = "FirstName" & vbTab & "LastName" & vbTab & "Birthdate" & vbCr _?
& "Bill" & vbTab & "Brown" & vbTab & "2/5/85" & vbCr _?
& "Joe" & vbTab & "Thomas" & vbTab & "1/1/91"
Clipboard.Clear
Clipboard.SetText sData
?'Create a new workbook in Excel
Dim oExcel As Object
Dim oBook As Object
Set oExcel = CreateObject("Excel.Application")?
Set oBook = oExcel.Workbooks.Add
?'Paste the data
oBook.Worksheets(1).Range("A1").Select
oBook.Worksheets(1).Paste
?'Save the Workbook and Quit Excel
oBook.SaveAs "C:\Book1.xls"?
oExcel.Quit????? ??? ?? ???? ???? ??????? Excel ?????? ?? ???? ??????
???? ??????? Excel ??? ????? ?????? ?????? ?? ??????? ????? ?????? ???????? ???? ???? ?? ???????. ????? ????????? ?? ??? ?????? ????? ???? ??? ???? ????? ?? ???????? ??? ???? ??? ?? ??????? ??? ????? ?? ?????? "??????? ????????"? ??? ???? ???? ???? ??????????. ?? ???? ??? ??????? ????? ?????? ????/???? ????? ???????? ????? ????? ????? ?? ???? ??????. ????? ??? ??? ??? ????? ????? ??? ?????? ??????? ???????? "??????? ????????" ????? ???? ??? ???????.
???? ???????? ???????? ??????? ??? ????? ????? ??? ?? ????? ?????? ?? ?????? ????? ADO:
?'Create a Recordset from all the records in the Orders table
Dim sNWind As String
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim sData As String
sNWind = _?
"C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _?
sNWind & ";"?
conn.CursorLocation = adUseClient
Set rs = conn.Execute("Orders", , adCmdTable)?
?'Save the recordset as a tab-delimited file
sData = rs.GetString(adClipString, , vbTab, vbCr, vbNullString)?
Open "C:\Test.txt" For Output As #1
Print #1, sData
Close #1
?'Close the connection
rs.Close
conn.Close
?'Open the new text file in Excel
Shell "C:\Program Files\Microsoft Office\Office\Excel.exe " & _?
Chr(34) & "C:\Test.txt" & Chr(34), vbMaximizedFocus ?? ???? ??????? ??????? Office 2007 ?? ????? ?????? Northwind? ??? ??????? ????? ?????? ?? ???????? ???????? ?? ???? ???????? ????????:
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _?
sNWind & ";"??????? ??? ????? ?? ???????? ???????? ?????? ?????? ?? ???????? ????????:
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _?
sNWind & ";"? ??? ??? ????? ????? ?? ??????? ?.CSV? ???? Excel ???? ????? ???? ??? "????? ??????? ????" ?????? ???????? ?? ????? ????? ??????. ??????? ??? ??? ????? ????? ?? ??????? ?.TXT? ???? Excel ???????? ??????? ???????? ???????? ?????? ?????.
?? ???? ???????? ???????? ???????? ?? ????? Excel ???????? ?????
Shell ??? ??????? ??? ????? ?????? ??? ?????. ?? ??? ??????? "??????? ????????" ?? ??????? ??????. ??? ????? ?? ???? ??? ??? ???? ?? ???? ????? ??????? ??? ??? ?? "??????? ????????" ???? ????? ????? ????? ?????? ???? Excel:
?'Create a new instance of Excel
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")?
?'Open the text file
Set oBook = oExcel.Workbooks.Open("C:\Test.txt")?
?'Save as Excel workbook and Quit Excel
oBook.SaveAs "C:\Book1.xls", xlWorkbookNormal
oExcel.Quit ?????? ??? ???? ?? ????????? ??? ??????? "?????/????? ?????" ?? ????? Visual Basic ????? ??? ?????? ?????? ??????? ??????? ?? "????? ????? Microsoft" (?? ????? ??? ??????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
172267
(http://support.microsoft.com/kb/172267/
)
?????: ???? RECEDIT.VBP ?????? ?????/????? ????? ?? Visual Basic
??? ???????? ??? ???? ??? ???????? ADO
???????? ???? Microsoft Jet OLE DB? ????? ????? ????? ????? ?? ???? Excel ?????. "??????" ?? ?????? Excel ?? ???? ???? ???? ????. ???? ?? ????? ??? ?? ?? ?????? ??? ?????? (?? ????? ??????) ?????? ???? ?????? ??????? ??? ???????. ???? ??????? ??????? ??? ????? ????? ???? ???????? ???? ???? ????
??????.
Excel 97 ?Excel 2000 ?Excel 2003
- ???? ?????? ?????? ?? Excel.
- ?? ?????? ?????? ??????? ??? ??????? A1:B1 ?? ?????? 1:
A1: FirstName B1: LastName - ?? ?????? ?????? B1 ????????? ??????.
- ??? A1:B1.
- ?? ??????? ?????? ???? ?????? ?? ??? ?????. ???? ????? ?????? ????? ??? ?????.
- ?? ???? ?????? ?????? ?? C:\Book1.xls ??? ?????? Excel.
?????? ????? ???
?????? ???????? ADO? ????? ??????? ?????? ?????? ?????? ??? ???:
?'Create a new connection object for Book1.xls
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _?
"Data Source=C:\Book1.xls;Extended Properties=Excel 8.0;?"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _?
" values ('Bill', 'Brown')"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _?
?" values ('Joe', 'Thomas')"?
conn.CloseExcel 2007
- ?? Excel 2007? ?? ???? ???? ????.
- ?? ?????? ?????? ??????? ??? ??????? A1:B1 ?? ?????? 1:
A1: FirstName B1: LastName - ?? ?????? ?????? B1 ????????? ??????.
- ??? A1:B1.
- ??? ??????? ???? ??? ????? ??????? ???? ?? ???? ??? ????? ???. ???? ????? ??????? ?? ???? ??? ?????.
- ?? ???? ?????? ?????? ?? C:\Book1.xlsx? ?? ?? ?????? Excel.
?????? ????? ?? "??????" ???????? ADO? ?????? ?????? ?????? ?????? ????? ???????? ???????? ???????:
?'Create a new connection object for Book1.xls
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _?
"Data Source=C:\Book1.xlsx;Extended Properties=Excel 12.0;?"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _?
?" values ('Scott', 'Brown')"?
conn.Execute "Insert into MyTable (FirstName, LastName)" & _?
?" values ('Jane', 'Dow')"?
conn.Close ??? ????? ????? ?????? ???? ???????? ??? ?????? ??? ????? ??????. ?? ?????? ??????? ???? ?????? ??????? ???? ??? ??????? ??? ?????? B ????? ??????? ??????. ?????? ?? ??? ??? ?????? ??? ?? ??????? ??????? ?? ???? ???? ?????.
??? ?????? ??? ??? ????? ??? ??? ???? ?? ????? ?? ???? ?????? ???? ???? ???????? ??? ??? ?????? ???? ?????? ?????? ?? ??? ???????? ????? ???? ?? ??? ????? "??? ?????" ?????? ???????? ?? ???? ????? ??? ????? ????? ?????. ??? ??? ??? ?? ???????? ??? ????? ???? ???????? ?? ????? ????? ?????? ??.
?????? ?? ???? ????? ????? ???????? ?? ???? ??? Excel ???????? ADO ?? DAO ?? ???? Visual Basic for Application ?? Access ??? ????? Office 2003 ?????? ????? ?????? Service Pack 2 ?(SP2) ?? ??? ????? ??????? ????? ?? Access 2002 ?????? ?? ????? "????? ????? Microsoft" ??? ??????. ???? ??????? ????? ??? ?? ???? Visual Basic for Application ?? ??????? Office ????? ??? Word ?Excel ?Outlook.
?????? ??? ???? ?? ?????????? ???? ??? ???? ????????? ???????? ??????? ?? "????? ????? Microsoft" (?? ????? ????? ????????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
904953
(http://support.microsoft.com/kb/904953/
)
????? ????? ???????? ???????? ?? ??????? ???????? ????? Excel ?? ??????? ?? ????? ?? Office Access 2007 ?? Office Access 2003 ?? Access 2002
904018
(http://support.microsoft.com/kb/904018/
)
??? ??????? ????? ??????? Access 2002: ?? ?????? ????
?????? ??? ???? ?? ????????? ??? ??????? ADO ?????? ??? ???? Excel? ?????? ?????? ??????? ??????? ?? "????? ????? Microsoft" (?? ????? ??? ??????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
195951
(http://support.microsoft.com/kb/195951/
)
????? ????????? ?? ?????? Excel ???????? ???????? ADO ?? ASP
??????? DDE ???? ???????? ??? Excel
DDE ?? ???? ?? "??????? ????????" ?????? ??????? ??????? Excel ???? ????????? ???? ????? "??????? ????????" ?COM? ?? ??? DDE ??????? ?????? ??????? ?????????? ?????? ???? ???????? ??? ?? ???? ??? ???? ?? ??? ???? ??.
???? ???????? ??? Excel ???????? DDE? ?????:
- ??????? ??????? LinkPoke ?????? ???????? ?? ???? ???? ?? ?????? (???????)?
- ?? - - ??????? ??????? LinkExecute ?????? ????? ????? Excel ????????.
???? ???? ???????? ???????? ??????? ????? ????? ????? DDE ???????? Excel ???? ????? ????? ?????? ?? ????? ?? ???? ??? ?????? ???????. ???????? ??? ???????? ?????? ????? DDE ???? ????????
LinkTopic Excel|MyBook.xls? ??? ?? ???? ?????? ???? ???? ?????
MyBook.xls ??????? ?????? ?? ???? Excel ??? ???????.
?????? ??? ??????? Excel 2007? ????? ??????? ????? ??? ?.xlsx ?????? ???? ????????. ???? ?? ????? ??? ????? ?? ???? ???????? ???????? ??????.
?????? ?? ??? ??????? ????
Text1 ???? ????
Text Box ?? ????? Visual Basic:
?'Initiate a DDE communication with Excel
Text1.LinkMode = 0
Text1.LinkTopic = "Excel|MyBook.xls"?
Text1.LinkItem = "R1C1:R2C3"?
Text1.LinkMode = 1
?'Poke the text in Text1 to the R1C1:R2C3 in MyBook.xls
Text1.Text = "one" & vbTab & "two" & vbTab & "three" & vbCr & _?
"four" & vbTab & "five" & vbTab & "six"
Text1.LinkPoke
?'Execute commands to select cell A1 (same as R1C1) and change the font
?'format
Text1.LinkExecute "[SELECT(""R1C1"")]"?
Text1.LinkExecute "[FONT.PROPERTIES(""Times New Roman"",""Bold"",10)]"?
?'Terminate the DDE communication
Text1.LinkMode = 0 ??? ???????
LinkPoke ?? Excel? ???? ?????? ?????? ?? ????? ??? ????-?? (R1C1) ??
LinkItem. ?? ???? ????? ?????? ??? ??? ?????? ????? ??????? ????? ??? ???? ??????? ????? ??????? ????? ??????? ????? ??????? ???? ??? ??? ?????.
??? ???????
LinkExecute ??????? Excel ?????? ???? ??? ????? Excel ????? ????? ???? Excel Macro Language (??? ??????? ?????? ?? Excel)? (XLM). ?? ???? ????? XLM ?????? ?? ??????? Excel 97 ?????????? ??????. ?????? ??? ???? ?? ????????? ??? ????? ?????? ??? ????? XLM? ?????? ?????? ??????? ??????? ?? "????? ????? Microsoft" (?? ????? ??? ??????? ??? ???????? ??? ????? ?????? ?????????? (????? ?? ??? ?????? ???)):
143466
(http://support.microsoft.com/kb/143466/
)
?XL97: ????? ??? Macro97.exe ?? ??????? ??? ????????
?? ???? ?? DDE ??? ??????? ??????? Excel. ???? "??????? ????????" ???? ??? ?? ??????? ??? ???? ??????? ?????? ???? ???? ??? ??????? ??????? ???? ??? ??? Excel ???????.
???? ??? ??????
