Solved

Importing Excel Files into Visual Basic 2008

Posted on 2008-06-25
3
1,537 Views
Last Modified: 2008-09-30
I am looking for a simple way to import an Excel file into VB 08 so that I can extract cells, like E/15 ,or groups of cells, like B/1 to B/10 or A/1 to H/1, and assign them to a variable or list. It would be great if someone could provide me with an example code to do this. :-)
0
Comment
Question by:ZoeticNepenthe
  • 2
3 Comments
 
LVL 9

Expert Comment

by:JonMny
ID: 21866239
0
 
LVL 1

Author Comment

by:ZoeticNepenthe
ID: 21866516
I have a code (attached to this post) from an older version of VB that lets you import a Excel file and pull out the cell you want as long as you know the place of the cell like A/1. The problem with the code is that it no longer works in VB 08. Something like this would be great because its simple and easy to use. In the end I dont know how many Excel files I will have to import but I know I will have about 30 variables that will need to be updated every minute from the Excel file, which is why I want to keep it simple. :-)
'Import Microsoft Excel Library

    Dim objXLApp As Excel.Application

    Dim intLoopCounter As Integer

    

    Set objXLApp = New Excel.Application

    

    With objXLApp

        .Workbooks.Open "C:\File.xls"

        .Workbooks(1).Worksheets(1).Select

    

        For intLoopCounter = 1 To 10

            List1.AddItem .Range("A" & intLoopCounter)

        Next intLoopCounter

        

        .Workbooks(1).Close False

        .Quit

    End With

    

    Set objXLApp = Nothing

Open in new window

0
 
LVL 1

Accepted Solution

by:
ZoeticNepenthe earned 0 total points
ID: 21883817
Figured it out...
Dim xlApp As Microsoft.Office.Interop.Excel.Application

Dim wb As Microsoft.Office.Interop.Excel.Workbook

Dim ws As Microsoft.Office.Interop.Excel.Worksheet
 

xlApp = (New Microsoft.Office.Interop.Excel.Application)
 

wb = xlApp.Workbooks.Open("PATH TO FILE")
 

ws = wb.Worksheets("worksheet")
 

TextBox1.Text = ws.Cells(5, 4).Value
 

wb.Close()
 

xlApp.Quit()
 

ws = Nothing

wb = Nothing

xlApp = Nothing

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now