Search:

would this work

For iRow = 2 To maxRow
MessageBox.Show("This is column " & objSht.Cells(iRow, maxCol).Value)
strCol = Chr(Asc(iCol) + 16)
...

hi
i have this code that reads an excel file matches dates and what i need to do it get it to write to another excel file one the date macthes.


Dim objExcel As New Excel.Application
...

sorry bout double post

what i mean about medium is say my values coming in are 16, 16, 10 medium is 16 if the values come in are 10, 8, 9 medium is 8
i get what you mean bout the sql but there...

anyone any ideas

hi
i have to get this arraydone and im stuck any help would be great

the first part of code reads the info from a table and writes it to a text file


Private Function MidRange()
On Error...

thanks will give it a go.
info will be deleted from table each time we do an add.

hi the part im missing alot is really the part im stuck on.
for this part


It should be

Cmd$ = "Insert Into TableName ( Your field names as above) Values ( The actual values for each field...

really stuck on this can anyone help

it moves the file from the c to the h driv. i decided to leave out the delete foir now.
do u think its wrong?
it seem to work the moving of it from 1 location to another

Dim FileSystemObject As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
FileSystemObject.CopyFile "c:\file.txt", "H:\file.txt"

hi
anyone no how to pick up a file in 1 location and put it into a folder in another while deleting the old file in folder

if the files are in different locations
like say a c drive to an f drive

hi
this is my code for pulling the info from the excel spreadsheet
is seem to work so happy days



Dim xl As New Excel.Application

Dim xlsheet As Excel.Worksheet

i have this bit of code


If CDbl(sAmount) < 0 Then
If CDbl(sAmount) < 0 Then ' (MTRBC_ARRAY$(MTRBC_CCYAMOUNT)
SNEX_ARRAY$(EXE_CD) = "D"
Else
...

i no i can but the problem is i dont no how many zeros i need for each line some number will be longer than other so wont require as many zeros

thanks that worked
just need to do one more thing
basically i need the length of the amount to be 37 for all numbers
so if the fist amount has 10 numbers need to have 27 zeros before it
and if...

hi im trying to get this number -38,842,7450.71
with 38842745071
im using this line to do it Replace(MTRBC_ARRAY$(MTRBC_CCYAMOUNT), ",", "")
now that has taken the , out but how do i get it to...

Dim j As Integer
Dim sOut As String
Close #17
Open OPXCOM$ + "\tmpTB01.csv" For Input As #17
'*** Architecture call to get record from data base


Do While Not...

it was but now it has changed just doing what im told at the min

ya i tried that but it doesnt seem to be working


Cmd$ = "SELECT * " + CRLF$
Cmd$ = Cmd$ + " FROM MTRBC_ARRAY$" + CRLF$
...

can anyone help with this

i have my loop done for the csv file


Dim j As Integer
Dim sOut As String
Close #17
Open OPXCOM$ + "\tmpTB01.csv" For Input As #17


Do While Not (EOF(17))

hi
im trying to delete all the info from a table through code
here is what i have done but it wont delete from table


Private Function ReadQueryResults()

start

Cmd$ =...

well i was asked to loop through csv file first. a table might come into it later but at the moment it wont.
and i cant insert it into a table as i dont have the rights on the db they use here to...

i cant because as far as i no it wont be going into a table.
i need to do it as an array like i did it when i was pulling the info from the db.

what do u mean

this is my array when pulling the data from data base
SNEX_ARRAY$(EXE_BR) = QU_ARRAY$(QU_BR)
SNEX_ARRAY$(EXE_PTGLNO) = QU_ARRAY$(QU_PTGLNO)
SNEX_ARRAY$(EXE_SPACES_1) = " "
...