有無 Excel 輸出文字檔範例 ?

Sub Export()

On Error Resume Next

Dim DestFile As String

Dim FileNum As Integer

Dim ColumnCount As Integer

Dim RowCount As Integer

FileNum = FreeFile()

DestFile = “C:\current.txt"

Open DestFile For Output As #FileNum

Print #FileNum, Cells(1, 1) & “" & Time & “," & Cells(1, 3) & “," & Cells(1, 4);

Close #FileNum

End Sub

把 Excel 接 DDE 報價,再把 Excel 本身當作 DDE 資料源,要如何寫 Excel  的 DDE 公式 ?

如果直接打 DDE 公式不穩定的話,可以利用 Excel 接 DDE 公式,再把 Excel 當作資料源,傳送給 DDE Server 和下單大師

原來方式:看盤軟體 –> DDE Server 和下單大師

轉送方式:看盤軟體 –> Excel –> DDE Server 和下單大師

在 DDE Server 和下單大師中,輸入 Excel 的 DDE 公式如下:Excel 檔案名稱為 MyDDE.xls

(1) Excel.exe|’MyDDE.xls!R2C3′    

// 第一頁的第 2 橫列(Row)第 3 直行(Col)  (欄位 C2) 

(2) Excel.exe|'[MyDDE.xls]Sheet3!R5C8′  

// 活頁名稱是 Sheet3 的第 5 橫列第 8 直行 (欄位 H5)

// 活頁名稱可用中文如:Excel.exe|'[MyDDE.xls]報價!R5C8′