Done -- aikimark
Private Function GetCellValue(BookName As String, SheetName As String, CellName As String) As String
On Error GoTo GetCellValue_Err
Dim strCellValue As String
Dim objBook As Workbook
Dim objSheet As Worksheet
If BookName = "" Then
Set objBook = ActiveWorkbook
Else
' open book
Debug.Print BookName; " "; CurDir
If Dir(BookName) = "" Then
Set objBook = Nothing
Else
Set objBook = Workbooks.Open(BookName, , True)
'Set objBook = Nothing
'Workbooks.Open BookName, , True
End If
End If
If objBook Is Nothing Then
strCellValue = "#FILE"
Else
If SheetName = "" Then
Set objSheet = objBook.ActiveSheet
Else
Set objSheet = objBook.Sheets(SheetName)
End If
'strCellValue = BookName & " / " & SheetName & " / " & CellName
strCellValue = objSheet.Range(CellName).Value
End If
GetCellValue_Exit:
If BookName <> "" Then
On Error Resume Next
objBook.Close
End If
Set objSheet = Nothing
Set objBook = Nothing
GetCellValue = strCellValue
Exit Function
GetCellValue_Err:
strCellValue = "#N/A"
Debug.Print Err.Description
Resume GetCellValue_Exit
End Function
Sub openWorkbook()
Dim objBook As Workbook
Dim BookName As String
BookName = "C:\Users\rob.spahitz\Documents\_MI\_POS Tests\D0_Processor_POS-NCPDP_ERR_CLOB_D0.xls"
Set objBook = Workbooks.Open(BookName, , True)
Debug.Print objBook.Name '<-displays the A.XLS file I just opened
Set objBook = Nothing
End Sub
Function OpenWkBk(BookName As String) As String
Dim objBook As Workbook
Set objBook = Workbooks.Open(BookName, , True)
OpenWkBk = objBook.Name
Set objBook = Nothing
End Function
Sub openWorkbook()
OpenWkBk Range("A1").Value
End Sub
Function OpenWkBk(BookName As String) As String
Dim objBook As Workbook
If Dir(BookName) = "" Then
OpenWkBk = "#FILE"
Else
Set objBook = Workbooks.Open(BookName, , True)
If objBook Is Nothing Then
OpenWkBk = "#FILE2"
Else
OpenWkBk = objBook.Name
Set objBook = Nothing
End If
End If
End Function
ASKER
fixed the question link -- aikimark ZA
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
Hotfix Request
The system is currently unavailable. Please try back later, or contact support if you want immediate assistance.http://support.microsoft.com/contactus/?ws=support
Private Sub Command1_Click()
Dim MyData As String, strData() As String
Open "C:\MyTextFile.Txt" For Binary As #1
MyData = Space$(LOF(1))
Get #1, , MyData
Close #1
strData() = Split(MyData, vbCrLf)
'~~> Perform opeartion
For I = 0 To UBound(strData())
Next
End Sub
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
Anyone who's really good at messing things up can try too. I can't see why the asker would see the error.
http:Q_27038992.html