Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with: runtime error '13'
i get a runtime error '13' type mismatch when i run my code. can someone help
me with this code. the code basically opens a file, take info from the file then close the file. when i click debug part of my code highlighted "if FName < False Then" Sub OpenFile() Declaration.ExitForm FName = Application.GetOpenFilename(filefilter:="DecProFil e(*.XLS), *.XLS", Title:="Open Declaration Pro File", MultiSelect:=True) If FName < False Then Workbooks.Open (FName.Path & "\" & FName) If ActiveWorkbook.Worksheets("sheet1").Range("A1").Va lue = "DecProFile" Then 'take info from file Workbooks("Declaration Pro.xls").Worksheets("Classification").Range("B5:B 103").Value = ActiveWorkbook.Worksheets("sheet1").Range("B5:B103 ").Value ActiveWorkbook.Close Calculate Else MsgBox prompt:="Invalid file", Title:="Invalid" ActiveWorkbook.Close End If End If End Sub I appreciate your help Thank you |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with: runtime error '13'
ok... i tried this and it works with no problem
Sub OpenFile() Declaration.ExitForm Dim fname As String, bk As Workbook fname = Application.GetOpenFilename() If fname < "False" Then Set bk = Workbooks.Open(fname) If ActiveWorkbook.Worksheets("sheet1").Range("A1").Va lue = "DecProFile" Then 'take info from file Workbooks("Declaration Pro.xls").Worksheets("Classification").Range("B5:B 103").Value = ActiveWorkbook.Worksheets("sheet1").Range("B5:B103 ").Value ActiveWorkbook.Close Calculate Else MsgBox prompt:="Invalid file", Title:="Invalid" ActiveWorkbook.Close Declaration.Show vbModeless End If Else Declaration.Show vbModeless Exit Sub End If End Sub "pape93gyal" wrote: i get a runtime error '13' type mismatch when i run my code. can someone help me with this code. the code basically opens a file, take info from the file then close the file. when i click debug part of my code highlighted "if FName < False Then" Sub OpenFile() Declaration.ExitForm FName = Application.GetOpenFilename(filefilter:="DecProFil e(*.XLS), *.XLS", Title:="Open Declaration Pro File", MultiSelect:=True) If FName < False Then Workbooks.Open (FName.Path & "\" & FName) If ActiveWorkbook.Worksheets("sheet1").Range("A1").Va lue = "DecProFile" Then 'take info from file Workbooks("Declaration Pro.xls").Worksheets("Classification").Range("B5:B 103").Value = ActiveWorkbook.Worksheets("sheet1").Range("B5:B103 ").Value ActiveWorkbook.Close Calculate Else MsgBox prompt:="Invalid file", Title:="Invalid" ActiveWorkbook.Close End If End If End Sub I appreciate your help Thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
runtime error: syntax error or access violation | Excel Programming | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) | |||
Syntax Error Runtime Error '424' Object Required | Excel Programming | |||
Unknown where is the problem on the Runtime error - Automation error | Excel Programming |