Replies

Longs don’t have decimal places – they are integers. Did you mean Double?

sorry…. Double, naturally.

Longs don’t have decimal places – they are integers. Did you mean Double?

sorry…. Double, naturally.

Longs don’t have decimal places – they are integers. Did you mean Double?

sorry…. Double, naturally.

Longs don’t have decimal places – they are integers. Did you mean Double?

sorry…. Double, naturally.

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

I have a range of cells filled with number from E8 to the last filled cell.
How to summing in “one shot” the range of cells and store the result in a var as long with 2 decimal number?

You can start Access from Excel using code (this is called Automation), and use objAccess.DoCmd.TransferText where objAccess is the Access.Application object that you created.

Or you can use CopyFromRecordset in Excel VBA to get data from a recordset into a worksheet, then save that worksheet as a text file.

I use CopyFromRecordset but my dubt is:

The sql sever data base contain a table with 36 fileds and all records are filled with data, wath about time to copy from sql server to sheet?

Why not use the DoCmd.TransferText command based upon a query?
Build a query with the fields you want, in this way its only the one instruction required.

Or, you could use a loop like:

Code:

Num = RS1.Fields.Count
Dim ii as integer
Do While RS1.EOF  True
    For ii = 0 to Num - 1
        Write #FileNum, RS1("Fields" & ii);
    Next ii
    Write #Filenum vbCrLf;    
RS1.MoveNext
Loop

nb. this is all air code

nb2. as Andrew pointed out your fields start at 0 so I changed the For/Next loop to reflect this.

i know this way (DoCmd.TransferText )… but i think not possible to use in VBA for excel, or not?

Does the folder c:temp exist on your hard disk?

in other case i nee a fast way to export from sql table to csv file with ado and vb classic.

Sorry, change #### to #0000.

ok but #0000 is the same 0000?