Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
save file
Hi,
I've got a problem in my code I've written below. The loop works for the first, third and fourth graphic: that is, it saves them. But it doesn't save the second graph. I've put a "pause" at the start and at the end of the loop, but I haven't solved the problem.. Any suggestion very appreciated! '----------------------------------------------------- Private Sub CommandButton1_Click() Dim i As Integer Dim a As Range Dim b As Integer Set a = Range("C10:C13") Dim PauseTime, Start, Finish, TotalTime b = a.Rows.Count For i = 1 To b PauseTime = 3 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start BLP = DDEInitiate("winblp", "bbk") Call DDEExecute(BLP, "<blp-1<cancel" & a(i).Text & "<IndexGPC<GO") PauseTime = 3 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start Call DDEExecute(BLP, "<SAVE<GO") Call DDETerminate(BLP) Next i End Sub '------------------------------------------------------------------------ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
save file
graphs can be on a Worksheet or on a chart sheet: is the second graph where
the others aren't? "asburypark98" wrote: Hi, I've got a problem in my code I've written below. The loop works for the first, third and fourth graphic: that is, it saves them. But it doesn't save the second graph. I've put a "pause" at the start and at the end of the loop, but I haven't solved the problem.. Any suggestion very appreciated! '----------------------------------------------------- Private Sub CommandButton1_Click() Dim i As Integer Dim a As Range Dim b As Integer Set a = Range("C10:C13") Dim PauseTime, Start, Finish, TotalTime b = a.Rows.Count For i = 1 To b PauseTime = 3 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start BLP = DDEInitiate("winblp", "bbk") Call DDEExecute(BLP, "<blp-1<cancel" & a(i).Text & "<IndexGPC<GO") PauseTime = 3 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start Call DDEExecute(BLP, "<SAVE<GO") Call DDETerminate(BLP) Next i End Sub '------------------------------------------------------------------------ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
save file
Graphs are called on a provider by DDE command and then saved in a
directory (it doesn't appear in this part of the code, because it is holded in another sub routine), but the directory is the same for all the graphs. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
save file
How is the value for a(2).Text different from the other 3. Is it correct?
Does it contain spaces? -- Regards, Tom Ogilvy "asburypark98" wrote: Graphs are called on a provider by DDE command and then saved in a directory (it doesn't appear in this part of the code, because it is holded in another sub routine), but the directory is the same for all the graphs. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
save file
Hi Tom,
How is the value for a(2).Text different from the other 3. Is it correct? Does it contain spaces? a(2) contains a text as a(1): a(1).text = SP a(2).text = TPX so the format is the same.. no spaces... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
when i save xls file, debug script is running and canno't save fil | Excel Discussion (Misc queries) | |||
Excell2003 (SP-1) File > Save and File > Save As.. grayed out | Excel Discussion (Misc queries) | |||
Excel marcos firing on file save as but not file save | Excel Programming | |||
Save File to Another Directory, but not change Users File Save location | Excel Programming | |||
Save As - Multiple Sheets fails to save as text file | Excel Programming |