Results 1 to 14 of 14
  1. #1
    stalk is offline Competent Performer
    Windows 8 Access 2003
    Join Date
    May 2014
    Posts
    143

    Reading specific lines from CSV file

    Reading specific lines thread already solved by Steve few months ago. I have an add on to this code to read lines 20 to 23, which is also working. Now I want to put these 2 pieces together in one code. I tried call readthermal but its not working


    Code:
    Option Compare Database    '<<-- should be at the top of EVERY code module
    Option Explicit            '<<-- should be at the top of EVERY code module
    
    
    Sub DReport_Mod2()
        'Mod 2 version of code - does not use a counter to track loops
        '
        Dim objDB As DAO.Database
        Dim mylog As DAO.Recordset
        Dim fso As New FileSystemObject
    
    
        Dim Tst As TextStream
        Dim strLine As String
        Dim strFilePath As String
        Dim strFileName As String
        Dim strInfile As String
        Dim operator As String
        Dim Username As String
        Dim ArrayOperator() As String
        Dim MyArray() As String
        Dim file_name As String
        Dim rundate As String
        Dim Date_Tested As Date
        Dim DateTime_Tested As Date
        Dim temp_str As String
        Dim iPos As Integer
        Dim iEnd As Integer
    
    
        '    Dim i As Integer
        '    Dim ID_NUMBER As Variant       '<<--field in table
        '    Dim Tester As String                '<<--field in table
        '    Dim objFSO As Scripting.FileSystemObject   '<<<---- Not used
        Dim CT_num As Integer        '<<<---- Not used
        Dim PRIMER_PROBE_SET As String  '<<<---- Not used
    
    
        Set objDB = CurrentDb()
    
    
        '    DoCmd.SetWarnings False
        '    DoCmd.RunSQL "Delete * from ABI;"
        '    DoCmd.SetWarnings True
        objDB.Execute "Delete * from ABI;", dbFailOnError
    
    
        strInfile = "\\project\ABI_testing\CSV_files\"
        strFileName = "Sea_testing.csv"
        strFilePath = strInfile & strFileName
        'open recordset
        Set mylog = objDB.OpenRecordset("ABI")
    
    
        ' Reading .CSV file and  Add a new records to table ABI
        If fso.FileExists(strFilePath) Then   'If 1
            Set Tst = fso.OpenTextFile(strFilePath, ForReading, False)
    
    
            Do Until Tst.AtEndOfStream   'Do 1
                iPos = 0
                ' Reading .CSV file and creating ABI table Add a new record
                strLine = Tst.ReadLine
                iPos = InStr(strLine, ":")
                If iPos > 0 Then   'If 2
                    temp_str = Left(strLine, iPos + 0)
                    Select Case temp_str
                        Case "Document Name:"
                            file_name = Trim(Replace(Mid(strLine, InStr(strLine, ":") + 1), ",", ""))
                        Case "User:"
                            Username = Trim(Replace(Mid(strLine, InStr(strLine, ":") + 1), ",", ""))
                            If Trim(Username) = "xx9" Then   'If 3
                                operator = "Reporter 1"
                            ElseIf Trim(Username) = "kkk2" Then   'If 3
                                operator = "Reporter 2"
                            End If    'If 3
                            ArrayOperator = Split(operator, " ")
                        Case "Run Date:"
                            rundate = Trim(Mid(strLine, iPos + 1))
                            temp_str = ""
                            temp_str = Right(rundate, 1)
                            Do Until temp_str <> ","
                                If Right(rundate, 1) = "," Then   'If 4
                                    rundate = Left(rundate, Len(rundate) - 1)
                                    temp_str = Right(rundate, 1)
                                End If    'If 4
                            Loop
                            Date_Tested = DateValue(Mid([rundate], InStr([rundate], ",") + 2))
                            DateTime_Tested = CVDate(Mid([rundate], InStr([rundate], ",") + 1))
                        Case "Last Modified:"
                            'do nothing
                    End Select
                Else   'If 2
                    If Left(strLine, 4) = "Well" Then   'If 5
                        'check if at "Well Data" line
                        Do Until Tst.AtEndOfStream    'Do 2
                            strLine = Tst.ReadLine
    
    
                            temp_str = Mid(strLine, InStr(strLine, ":") + 1)
                            MyArray = Split(temp_str, ",")
                            mylog.AddNew
                            mylog![Run_file_Name] = file_name
                            mylog![Username] = Username
                            mylog![operator] = operator
                            mylog![Tester] = Left(ArrayOperator(0), 1) & ArrayOperator(1)
                            mylog![rundate] = rundate
                            mylog![Date_Tested] = Date_Tested
                            mylog![DateTime_Tested] = DateTime_Tested
                            mylog![SampleID] = UCase(MyArray(1))
                            If IsNumeric(MyArray(1)) Then   'If 6
                                mylog![ID_NUMBER] = MyArray(1)
                            Else    'If 6
                                mylog![ID_NUMBER] = 0
                            End If   'If 6
                            mylog.Update
                        Loop   'Do 2
                    End If     'If 5
                End If   'If 2
    
    
            Loop   'Do 1
        End If    'If 1
    
    
    
    
        'clean up
        On Error Resume Next
        Tst.Close
        mylog.Close
    
    
        Set mylog = Nothing
        Set fso = Nothing
        Set objDB = Nothing
    
    
        MsgBox "Done"
    End Sub
    (The "IF 1", "Do
    ..

    Second piece..
    Code:
    Option Compare DatabaseOption Explicit
    
    
    Sub readthermal()
         
       'Read CSV file
      
       Dim fso As New FileSystemObject
       Dim Tst As TextStream
       Dim strInfile As String
       Dim strline As String
       Dim strFilePath As String
       Dim i As Integer
       Dim Strfilename As String
       
       Dim objDB As DAO.Database
       Dim mylog2 As DAO.Recordset
    
    
    
    
       '   Scripting Objects:
      Dim objFSO As Scripting.FileSystemObject
    
    
       '   Other variables:
         
       Dim MyArray1() As String
       Dim ArrayOperator() As String
       
      
      DoCmd.SetWarnings False
       
      DoCmd.RunSQL "Delete * from thermal;"
      DoCmd.SetWarnings True
       
      strInfile = "\\project\ABI_testing\CSV_files\"
       Strfilename = "Sea_testing.csv"
       strFilePath = strInfile & Strfilename
        
        Set objDB = CurrentDb()
        Set mylog2 = objDB.OpenRecordset("thermal")
    
    
    i = 1
     ' Reading .CSV file and creating ABI table Add a new record
            
    If fso.FileExists(strFilePath) Then
                Set Tst = fso.OpenTextFile(strFilePath, ForReading, False)
    Do Until Tst.AtEndOfStream
                  
    
    
                             strline = Tst.ReadLine
                                If (i > 19) And (i <= 23) And strline <> "Standard 7500 Mode" Then
                           
                                MyArray1 = Split(strline, ",")
                                MsgBox strline
                                 mylog2.AddNew
                           
                                 If IsNumeric(MyArray1(0)) Then
                                  mylog2![Stage] = UCase(MyArray1(0))
                                   
                                 Else
                                   mylog2![Stage] = 0
                                 End If
                                 
                                 If IsNumeric(MyArray1(0)) Then
                                  mylog2![Temperature] = UCase(MyArray1(1))
                                   
                                 Else
                                   mylog2![Temperature] = 0
                                 End If
                                 
                                 mylog2![Time_t] = UCase(MyArray1(2))
                                 mylog2![Ramp_Rate] = UCase(MyArray1(3))
                                 mylog2![Auto_Increment] = UCase(MyArray1(4))
                                 mylog2.Update
                                                          
                              
                            
                            End If
                             i = i + 1
    
    
    Loop
      
                Tst.Close
      End If
      mylog2.Close
      
    End Sub
    Attached Files Attached Files

  2. #2
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    What does 'not working' mean - error message, wrong result, nothing happens?

    Right off I get "user-defined type not defined" compile error on Dim fso As New FileSystemObject

    I have FileDialog code that does not error but the object is declared and set differently. What VBE library is needed for your version?
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  3. #3
    stalk is offline Competent Performer
    Windows 8 Access 2003
    Join Date
    May 2014
    Posts
    143
    I did not get any errors. Second code worked perfectly and updated the values in thermal table. I tried commenting the following lines in my second code and used call statement in my first code. After delete line in second code, cursor returned back with out processing the rest of the code. Is there a way to update both ABI and thermal in the same code by reading the CSV file one time?

    Code:
       
     ' strInfile = "\\project\ABI_testing\CSV_files\"
      ' Strfilename = "Sea_testing.csv"
       'strFilePath = strInfile & Strfilename




  4. #4
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    Should be possible. Figured out I need to activate Microsoft Scripting Runtime library then code compiles. Will do some testing now.
    Last edited by June7; 08-23-2019 at 02:36 AM.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  5. #5
    ssanfu is offline Master of Nothing
    Windows 7 32bit Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    In the example CSV file, the additional lines of data are 20-23.
    Will the data ALWAYS be between lines 20 and 23 (inclusive)??

    IIRC, the number of lines in the CSV file can/will change. Therefore, if you hard code the range of lines to be between 20 and 23, you might get bad results.

  6. #6
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    Here are procedures combined for one pass through CSV. I am sure code could be refined but it does work.
    Code:
        Dim objDB As dao.Database
        Dim mylog As dao.Recordset
        Dim mylog2 As dao.Recordset
        Dim fso As New FileSystemObject
        Dim Tst As TextStream
        Dim strline As String
        Dim strFilePath As String
        Dim Strfilename As String
        Dim strInfile As String
        Dim operator As String
        Dim Username As String
        Dim ArrayOperator() As String
        Dim MyArray() As String
        Dim file_name As String
        Dim rundate As String
        Dim Date_Tested As Date
        Dim DateTime_Tested As Date
        Dim temp_str As String
        Dim iPos As Integer
        Dim iEnd As Integer
        Dim i As Integer
        Dim MyArray1() As String
    
        Set objDB = CurrentDb()
        objDB.Execute "DELETE FROM ABI;", dbFailOnError
        objDB.Execute "DELETE FROM thermal", dbFailOnError
        strInfile = "\\project\ABI_testing\CSV_files\"
        Strfilename = "Sea_testing.csv"
        strFilePath = strInfile & Strfilename
        'open recordset
        Set mylog = objDB.OpenRecordset("ABI")
        Set mylog2 = objDB.OpenRecordset("thermal")
        i = 1
        ' Reading .CSV file and add new records to tables
        If fso.FileExists(strFilePath) Then   'If 1
            Set Tst = fso.OpenTextFile(strFilePath, ForReading, False)
            Do Until Tst.AtEndOfStream   'Do 1
                iPos = 0
                ' Reading .CSV file and creating ABI table Add a new record
                strline = Tst.ReadLine
                iPos = InStr(strline, ":")
                If iPos > 0 And i < 20 Then    'If 2
                    temp_str = Left(strline, iPos + 0)
                    Select Case temp_str
                        Case "Document Name:"
                            file_name = Trim(Replace(Mid(strline, InStr(strline, ":") + 1), ",", ""))
                        Case "User:"
                            Username = Trim(Replace(Mid(strline, InStr(strline, ":") + 1), ",", ""))
                            If Trim(Username) = "xx9" Then   'If 3
                                operator = "Reporter 1"
                            ElseIf Trim(Username) = "kkk2" Then   'If 3
                                operator = "Reporter 2"
                            End If    'If 3
                            ArrayOperator = Split(operator, " ")
                        Case "Run Date:"
                            rundate = Trim(Mid(strline, iPos + 1))
                            temp_str = ""
                            temp_str = Right(rundate, 1)
                            Do Until temp_str <> ","
                                If Right(rundate, 1) = "," Then   'If 4
                                    rundate = Left(rundate, Len(rundate) - 1)
                                    temp_str = Right(rundate, 1)
                                End If    'If 4
                            Loop
                            Date_Tested = DateValue(Mid([rundate], InStr([rundate], ",") + 2))
                            DateTime_Tested = CVDate(Mid([rundate], InStr([rundate], ",") + 1))
                        Case "Last Modified:"
                            'do nothing
                    End Select
                ElseIf Left(strline, 4) = "Well" Then   'If 5
                        'check if at "Well Data" line
                        Do Until Tst.AtEndOfStream    'Do 2
                            strline = Tst.ReadLine
                            temp_str = Mid(strline, InStr(strline, ":") + 1)
                            MyArray = Split(temp_str, ",")
                            mylog.AddNew
                            mylog![Run_file_Name] = file_name
                            mylog![Username] = Username
                            mylog![operator] = operator
                            mylog![Tester] = Left(ArrayOperator(0), 1) & ArrayOperator(1)
                            mylog![rundate] = rundate
                            mylog![Date_Tested] = Date_Tested
                            mylog![DateTime_Tested] = DateTime_Tested
                            mylog![SampleID] = UCase(MyArray(1))
                            If IsNumeric(MyArray(1)) Then   'If 6
                                mylog![ID_NUMBER] = MyArray(1)
                            Else    'If 6
                                mylog![ID_NUMBER] = 0
                            End If   'If 6
                            mylog.Update
                        Loop   'Do 2
                ElseIf (i > 19) And (i <= 23) And strline <> "Standard 7500 Mode" Then
    
                    MyArray1 = Split(strline, ",")
                    MsgBox strline
                    mylog2.AddNew
                    
                    If IsNumeric(MyArray1(0)) Then
                        mylog2![Stage] = UCase(MyArray1(0))
                    Else
                        mylog2![Stage] = 0
                    End If
                    
                    If IsNumeric(MyArray1(0)) Then
                        mylog2![Temperature] = UCase(MyArray1(2))
                    Else
                        mylog2![Temperature] = 0
                    End If
                    
                    mylog2![Time_t] = UCase(MyArray1(3))
                    mylog2![Ramp_Rate] = UCase(MyArray1(4))
                    mylog2![Auto_Increment] = UCase(MyArray1(5))
                    mylog2.Update
                                             
                End If
                i = i + 1
            Loop   'Do 1
        End If    'If 1
        'clean up
        On Error Resume Next
        Tst.Close
        mylog.Close
    
    mylog2.Close
    Set mylog = Nothing
    Set mylog2 = Nothing
    Set fso = Nothing Set objDB = Nothing
    MsgBox "Done"
    However, there may be something wrong with code for Thermal data. There are 6 headers but Repetitions column is not referenced in code and there are no values under Auto_Increment.
    Will Stage always be a number?

    Consider this alternate approach:
    Code:
    ' Reading .CSV file and add new records to tables
    Dim objDB As dao.Database Dim mylog As dao.Recordset Dim fso As New FileSystemObject Dim strFilePath As String Dim file_name As String Dim Username As String Dim rundate As String Dim i As Integer Dim MyArray As Variant Dim strT As String Set objDB = CurrentDb() objDB.Execute "DELETE FROM ABI;", dbFailOnError objDB.Execute "DELETE FROM thermal", dbFailOnError strFilePath = "\\project\ABI_testing\CSV_files\Sea_testing.csv" Set mylog = objDB.OpenRecordset("ABI") If fso.FileExists(strFilePath) Then strT = fso.OpenTextFile(strFilePath, ForReading, False).ReadAll MyArray = Split(Left(strT, InStr(strT, "Instrument Type:") - 1), vbCrLf) file_name = Trim(Replace(Mid(MyArray(0), InStr(MyArray(0), ":") + 1), ",", "")) Username = Trim(Replace(Mid(MyArray(2), InStr(MyArray(2), ":") + 1), ",", "")) rundate = Trim(Mid(MyArray(7), InStr(MyArray(7), ":") + 1)) ReDim MyArray(0) MyArray = Split(Mid(strT, InStr(strT, "Well,")), vbCrLf) For i = 1 To UBound(MyArray) - 1 mylog.AddNew mylog![Run_file_Name] = file_name mylog![Username] = Username mylog![operator] = "Reporter " & Switch(Username = "xx9", "1", Username = "kkk2", "2") mylog![Tester] = "R" & Switch(Username = "xx9", "1", Username = "kkk2", "2") mylog![rundate] = Left(rundate, Len(rundate) - 3) mylog![Date_Tested] = DateValue(Replace(Mid(rundate, InStr(rundate, ",") + 1), ",", "")) mylog![DateTime_Tested] = CDate(Replace(Mid(rundate, InStr(rundate, ",") + 1), ",", "")) mylog![SampleID] = UCase(Split(MyArray(i), ",")(1)) mylog![ID_NUMBER] = Val(UCase(Split(MyArray(i), ",")(1))) mylog.Update Next mylog.Close Set mylog = objDB.OpenRecordset("thermal") ReDim MyArray(0) MyArray = Split(Mid(Left(strT, InStr(strT, "Standard 7500") - 1), InStr(strT, "Stage")), vbCrLf) For i = 1 To UBound(MyArray) - 1 mylog.AddNew mylog![Stage] = Val(Split(MyArray(i), ",")(0)) mylog![Temperature] = UCase(Split(MyArray(i), ",")(2)) mylog![Time_t] = UCase(Split(MyArray(i), ",")(3)) mylog![Ramp_Rate] = UCase(Split(MyArray(i), ",")(4)) 'mylog![Auto_Increment] = UCase(Split(MyArray(i), ",")(5)) mylog.Update Next End If
    Last edited by June7; 08-23-2019 at 04:18 PM.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  7. #7
    stalk is offline Competent Performer
    Windows 8 Access 2003
    Join Date
    May 2014
    Posts
    143
    Thank you so much June7 for working on this until late night. It works as desired for 2 files I tested so far. I wish you had modified the Steve’s code, to just insert the thermal code because all the code was tested and I am using daily. Preferred to have minimal effect on code, because of that I used CALL statement to not disturb the existing code . Now I need to rewrite whole code and test it as per the requirement. Say for ex: Filename( MyArray(0), username MyArray(2) might not be always be the same. If there is a software patch on the machine, the exported csv file will have the lines location changed because of that Steve has implemented Case statement to identify by Word and capture the values.
    But I got the point on how to change the code and update 2 tables in single workflow. Will try and update you when I am done. I am not that fast to understand and make changes to the code on the fly
    Also, I have tried and verified 3 files and they all have auto increment blank all the time. Not sure of it’s purpose, so I will research and drop that from the table going forward. Fixed Repetitions field as well.
    I am curious about 2 things? Are you guys doing this voluntarily or you get paid by the company ( Microsoft to support Access DB?) because some software companies have free technical support to encourage licensed users to stick to their product.
    If it is voluntary, work then hats off to all of your time and selfless service and appreciate your command on the subject. May the force be with you. I am trying to work on strengthening my skills but it might take a while to reach your level.


    @Steve: you are right (IIRC- you use lot of acronyms; this time I found this in google so not asking for the definition. Yes, Thermal setting change between 20 to 23 or 20 to 22 in each file, but they are in the same location. That is the reason I ended the loop to come out when it sees “Standard 7500 Mode”.
    Well parameters locations change in some files so you helped me with CASE statement to identified the word rather than the line numbers and process the data.

    Thank you All.

  8. #8
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    This forum has no association with Microsoft. Aside from the owner (and maybe employees if any), we are volunteers who do this partly to help and partly for the programming challenges (that's why I worked out the alternate code).

    I did provide version that just inserted the thermal code. Didn't you ask for an all-in-one that provided only 1 read of file?

    As long as the general structure remains same, breaking the CSV into 3 sections should remain possible.
    Last edited by June7; 08-23-2019 at 04:15 PM.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  9. #9
    stalk is offline Competent Performer
    Windows 8 Access 2003
    Join Date
    May 2014
    Posts
    143
    I am so sorry June7. I am so deeply involved in working on your second code I absolutely forgot about your first version.


    As I said before my code module have much more code to process and do things other than just reading the csv file. So want to have less changes to existing code at the same time implement new changes..

    I will try this now. Yes, I prefer to see all the changes in one loop.

    Once again thank you so much for all your hard work.


    Quote Originally Posted by June7 View Post
    I did provide version that just inserted the thermal code. Didn't you ask for an all-in-one that provided only 1 read of file?

    As long as the general structure remains same, breaking the CSV into 3 sections should remain possible.

  10. #10
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    Case structure can be used on a loop of array instead of static reference to array elements.

    Temperature and scale unit really should be separate fields. If scale is always C then why save that? Temperature should be in a number field.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  11. #11
    ssanfu is offline Master of Nothing
    Windows 7 32bit Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    @stalk:
    I looked back (or tried to) at your previous post to try and remember what the problem was.

    I've looked at June7's solutions and realized that I missed something - the dB structure.
    From the data (Sea_testing1.csv), it looks like there should be 3 tables:

    Click image for larger version. 

Name:	Structure1.png 
Views:	17 
Size:	167.4 KB 
ID:	39558

    or does all of the data go into one table?
    Would you post an image of your Relationship window?



    One more question:
    In the Thermal Cycler Profile area, you have a header "Time". (Note that "Time" is a reserved word and shouldn't be used for object names)

    What does 30:00:00 represent? Does it represent 1 day and 6 hours?

    There is a difference between Time and Duration. I've see a lot of people confuse them.
    You wouldn't write "It took me 2:30 hours to go from here to the exhibit".
    But you would write ""It took me 2.5 hours to go from here to the exhibit".
    Using a colon is generally understood to represent a time, not a duration.
    OK, I'm off my soap box.....

  12. #12
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    Steve brings up good point. Something I meant to ask about.

    Two tables - ABI and Thermal - are involved, although 3 does make sense. Are these tables supposed to have relationship? I really don't see how relationship has been maintained by the original code and I did not deal with in my suggestions.

    Also, why does delete records and not retain?
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  13. #13
    stalk is offline Competent Performer
    Windows 8 Access 2003
    Join Date
    May 2014
    Posts
    143
    Steve and June 7. Thank you for working on this. It's resolved and working as desired. Initially I was capturing all the data in ABI table. Recently I realized that I have to capture Thermal data. So I created separate table just for that. I am not storing Thermal data into the database just reading from csv and writing to Excel template for review. Where at the Well data is captured into the database table -filename, sampleid and datetimetested are unique. I use these 3 fields to assign TestNo, to capture the test data if that samples is tested twice or thrice on the same day.

  14. #14
    ssanfu is offline Master of Nothing
    Windows 7 32bit Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    I would still strongly recommend 3 tables (a normalized structure).... but as long as it is "working" and you understand what is happening, then all seems good in the world.

    Good luck with your project.....

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 7
    Last Post: 04-08-2019, 03:23 PM
  2. Replies: 3
    Last Post: 02-21-2018, 07:32 PM
  3. Reading .xls file using VBA code
    By stalk in forum Programming
    Replies: 3
    Last Post: 01-19-2017, 01:58 PM
  4. Reading Excel file from Share point
    By selvakumar.arc in forum Import/Export Data
    Replies: 1
    Last Post: 03-27-2014, 02:00 PM
  5. need help with reading code in downloaded file
    By ringnalda506 in forum Access
    Replies: 2
    Last Post: 12-03-2013, 11:32 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums