Visual Basic and excel problems, need to get vb to read data from a file and input into vb

• • Reply

  11 years ago

  by fuze

  bryan long

  Bristol, United Kingdom

  Joined 11 years ago
  Hi, I am incredibly new to visual basic and i need to create a programme which reads data from a file and sends it into a cell in an excel spreadsheet. does anyone know how to do this? Cheers in advance
  Report abuse
• • Reply

  11 years ago

  by Rajen Vyas

  Raj Vyas

  London, United Kingdom

  Joined 11 years ago
  Hi fuze, 1) To read data: specify pathname, filename and then use INPUT(.........) command 2) To output to excel you can use modified (for your application) the following code: Startcell = 4 'Adjust as required Set XL = CreateObject("Excel.Sheet") 'Create an Excel object With XL.Application .Range("A1:K52").ColumnWidth = 10 .Cells(1, 1).Font.Bold = True .Cells(1, 1).Font.Underline = True .Cells(1, 1).Font.Size = 24 .Cells(1, 1).value = "XXXXXXXXXXXXXX" .Range("A3").Font.Bold = True .Cells(3, 1).value = "Date and Time of Calculation:" .Cells(3, 4).value = Format(Now, "ddddd") '28/05/07 11:22:33 .Cells(3, 5).value = Format(Now, "hh:mm") .Range("A5:A6").Font.Bold = True .Range("A5:A6").Font.Size = 12 .Cells(5, 1).value = "YYYYYYYYYYYYYYY: " .Cells(6, 1).value = Section ' section is some variable - put it to some value while testing .Cells(Startcell + 4, 1).Font.Bold = True .Cells(Startcell + 4, 1).value = "The input data for the calculation:" ........... and then end with! End With File1 = FreeFile XL.SaveAs OutputFile ' Let OutputFile = "D:\xlout.xls" say XL.Application.Quit Set XL = Nothing I hope this helps.
  Report abuse