+ Reply to Thread
Results 1 to 2 of 2

Importing Text from Mutiple Sources

  1. #1
    Registered User
    Join Date
    04-18-2012
    Location
    Arkansas
    MS-Off Ver
    Excel 2010
    Posts
    2

    Importing Text from Mutiple Sources

    Hello! New to this forum and as a whole, new to VBA. I took over day to day IT operatioins (and the only IT Jack of all trades guy here) over a year ago. While I got glowing reviews for my System Administration, they want to to now dive into the mountain of excel spreadsheets with VBA in them. I know how to read and study the code, setup breakpoints to step through code but I am very much a newbie when it comes to coding from scratch.

    Here's the first challenge they have presented me.

    There is a spreadsheet where they can enter quote numbers and it imports data from the corresponding directory on the server of the quote number. Most of the data is from a file called Shipp.out. So, there is in a process in place for that. What they need me to do now is while keying on those same fields for the quote numbers, I need a button to import a cost sheet called cost.out into a seperate workbook called TOTALS. And since they can bring in multiple quotes, I need to be able to handle that. For now, I am not too woried about calculations. I just need to learn how to import the data, especially from multiple quotes.

    The cost.out file is all text, though it is indented.

    Any suggestions on where to start?
    Thanks!
    Brian

  2. #2
    Registered User
    Join Date
    04-18-2012
    Location
    Arkansas
    MS-Off Ver
    Excel 2010
    Posts
    2

    Re: Importing Text from Mutiple Sources

    Here is a quick snip of code which shows how it brings in multiple quotes and when to stop (in case someone needs to see this part):

    Sheets("WORKSHEET").Select
    'Sheets("QUOTE RECAP").Select
    Range("I21").Select
    'Range("H5").Select
    PAGE = 1

    Do
    QUOTENUM = ActiveCell.Value
    IMPORT_MBS PAGE, QUOTENUM
    PAGE = PAGE + 1
    ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Value = ""

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1