Export/Import in CSV
This is the code to Import the data that the above code creates
Sub RetrieveMWJCJob()
'
' RetrieveMWJCJob Macro
' Macro recorded 11/15/2006 by David Perkins
'
'
Call ZeroMWJCSheet
Dim MyDirectory As String
'Moves to 2009 Saved Jobs Directory
MyDirectory = ActiveWorkbook.Path & "\" & "2009 Saved Jobs"
ChDir MyDirectory
Do
FName = Application.GetOpenFilename
Loop Until FName < False Or msoButtonSetCancel
If FName < False Then
Set ImportFile = Workbooks.Open(FileName:=FName)
Else: Exit Sub
End If
Application.ScreenUpdating = False
Dim password As String
ThisWorkbook.Activate
Sheet91.Select
Range("CA3").Select
password = Range("CA3").Value
Sheet96.Select
ActiveSheet.Unprotect (password)
ImportFile.Activate
Range("E5").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("D6:F9").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("D6:F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("B6:B9").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("B13:B16").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("H13").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("B20:B23").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("H20").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ImportFile.Activate
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
Range("B28:B31").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
Range("B28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("H28").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("B35:B38").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("B42:B45").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
Range("H42").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ImportFile.Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveSheet.Protect (password)
Kill FName
ChDir CurDir & "\.."
Application.ScreenUpdating = True
End Sub
|