By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
454,098 Members | 2,054 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 454,098 IT Pros & Developers. It's quick & easy.

DDE - Excel XP

P: n/a
In Office XP, I am sending data from MSAccess to Excel, via DDE
commands and by using excel commands .CELLS(). Both ways are used in
the same procedure. On all machines it works except on a machine with
French Office XP. Commands of DDE for page setup works but not the
ones for sending data (DDEPOKE). I got the international characters
for Excel row and column. What could be the problem for DDEPOKE
command to fail ? I get the error 285, "The other application can't
perform the DDE function...."

Global exl_APP As excel.Application

Set exl_APP = CreateObject("Excel.application")
Set exl_WKB = exl_APP.Workbooks.Add

exl_WKB.Worksheets.Add ,
exl_WKB.Worksheets(exl_WKB.Worksheets.Count)
Set exl_NEW_WKS = exl_WKB.Worksheets(var_WKS_counter)

exl_WKS.Cells(var_rows_count, var_cols_count).Value = arr_dataR(m,
i)

var_ORIG_data_WKS_name = exl_WKS.Name
var_CHNL_no = DDEInitiate("Excel", var_ORIG_data_WKS_name)

DDEExecute var_CHNL_no, "[page.setup(" & var_par_str & ")]"

'--------------------------- this command does not work
------------------------

var_EXL_R_char = "L"
var_EXL_C_char = "C"
var_EXCEL_address = var_EXL_R_char & var_EXL_start_R &
var_EXL_C_char & var_EXL_start_C & ":" & var_EXL_R_char &
var_EXL_start_R & var_EXL_C_char & var_cols_count
DDEPoke var_CHNL_no, var_EXCEL_address, var_EXCEL_data
Nov 13 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.