August 29, 2008 11:11pm pdt

1. capricorn1 832,555
2. LSMCons... 420,738
3. boag2000 397,917
4. DatabaseMX 312,932
5. peter57r 282,365
6. harfang 259,782
7. jimhorn 170,361
8. matthews... 134,445
9. TextReport 130,246
10. MikeToole 114,323
11. omgang 96,947
12. frankytee 91,914
13. koutny 89,755
14. angelIII 76,770
15. Rick_Ric... 71,927
16. eghtebas 63,987
17. GRayL 62,530
18. ee_rlee 62,522
19. rorya 61,932
20. irudyk 60,110
21. hnasr 56,555
22. LennyGray 56,292
23. cactus_d... 55,098
24. jefftwilley 54,222
25. wiswalld 51,523

1. capricorn1 1,453,400
2. LSMCons... 652,857
3. DatabaseMX 615,657
4. peter57r 519,874
5. harfang 441,330
6. boag2000 437,829
7. jimhorn 366,351
8. jefftwilley 350,437
9. matthews... 283,709
10. mbizup 241,400
11. frankytee 227,167
12. stevbe 220,614
13. MikeToole 219,373
14. omgang 169,182
15. rockiroads 151,183
16. GRayL 148,336
17. LPurvis 135,020
18. TextReport 130,746
19. JDettman 120,740
20. angelIII 119,828
21. ragoran 112,130
22. koutny 104,780
23. Rick_Ric... 95,527
24. eghtebas 91,562
25. rorya 86,982

05.27.2008 at 03:22PM PDT, ID: 23436560

	[x] Attachment Details

VBA Code in Access to Open an excel Spreadsheet and delete first two lines and then do a file save as.

Asked by gdunn59 in Access Coding/Macros, VB Script

Tags: VBA

I have some VBA Code that goes to a specific directory, and allows the user to choose a file (excel spreadsheet) to open. I need to include in the VBA code, once the spreadsheet is open, it deletes the first two lines and then does a file save as.

I have attached the code I currently have that I need to incorporate this new code into.

Thanks,
gdunn59Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

           
           
             Private Sub cmdSentFileImport_Click()
    On Error GoTo Err_cmdSentFileImport_Click
    
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rstImportedSentFiles As DAO.Recordset
    Dim rstSettings As DAO.Recordset
    Dim strBeginBrowse As String
    Dim strPathName As String
    Dim strFileName As String
    Dim strSQL As String
    
    Set db = CurrentDb()
    'Set rstSettings = db.OpenRecordset("Settings")
    Set rstImportedSentFiles = db.OpenRecordset("ImportedSentFileNames")
 
    strBeginBrowse = "\\nq01ana001\senior\d_ops\Bene\QSSI_Sent"
    strPathName = OpenFile(strBeginBrowse)
    strFileName = SelectFileName(strPathName)
    
    'catch common mistakes
    If strFileName = "" Then
        MsgBox "No file was selected"
        Exit Sub
    ElseIf Left(strFileName, 6) <> rstSettings!SentFilePrefix Then
        MsgBox "This file does not have the correct name.  Please check settings"
        Exit Sub
    End If

           
         

Keywords: VBA Code in Access to Open an excel…

	Title
1	Access VBA - Import Spreadsheet
2	Access VBA and Import Excel Spread…
3	Excel spreadsheet and C++
4	Merging Excel spreadsheets
5	Excel macro to enter spreadsheet as e…
6	programmatic inclusion of sub procedu…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

VBA Code in Access to Open an excel Spreadsheet and delete first two lines and then do a file save as.

Asked by gdunn59 in Access Coding/Macros, VB Script

Tags: VBA

About this solution