Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Running Macro "Logged Off" & Copy/Paste from WORD .rtf into EXCEL .xls
EXCEL 2003 VBA:
I have several Macro Projects, using .xlA files, stored on my local hard drive; each has a 'Public Sub Auto_Open' stmt. Each .xlA file is fired by a Windows XP 'Scheduled Task' that includes Scheduled Times when my machine is "logged off" from our network. These macros, when running in a "logged off" mode, have read and write access to the same network drives that I have permissions for when my machine is "logged on". (The .xlA files are NOT set-up as 'Add-Ins' in EXCEL.) These macros are working as intended. Now, I need to complete a similar macro that has a 'copy/paste from WORD' procedure. I have been able to do this, using both late and early binding, when my machine is "logged-on" to our network. However, I also need to do this when my machine is "logged-off"; neither early nor late binding is working -- the primary data file becomes "locked for editing" by the network. (The VBA code is in a .xlA file stored on my hard drive; a Scheduled Task opens this file at a specified time each day.) The Scheduled Task fires, but becomes locked in "Running" mode. We are running Office 2003 and Windows XP Pro. Below is my early binding code procedu Public Sub Import_From_WORD_Tables() Dim objWord As Word.Application Dim objDoc As Word.Document Dim wordvalue As Variant Dim j As Integer Dim lngErrNo As Long Dim strErrSrc As String Dim strErrDesc As String On Error GoTo PROC_ERR Application.DisplayAlerts = False PrimaryDataWB.Activate '<<== this is primary data file Set objWord = New Word.Application objWord.Visible = False Set objDoc = Documents.Open(myPathPF_BATCH & "T and A.rtf") objDoc.Activate 'For "Rows" 1 - 8 in Table 1 For j = 1 To 8 wordvalue = objDoc.Tables(1).Columns(4).Cells(j + 2) ActiveWorkbook.Sheets(3).Cells(j + 17, 11) = Application.WorksheetFunction.Clean(wordvalue) Next j objDoc.Close objWord.Quit Set objDoc = Nothing Set objWord = Nothing Exit Sub PROC_ERR: lngErrNo = Err.Number strErrSrc = "-ADJUSTMENT_TEST()-" & Err.Source strErrDesc = Err.Description 'Disable error handling On Error GoTo 0 Err.Raise lngErrNo, strErrSrc, strErrDesc End Sub I have been able to determine that the macro crashes at the 'Set objWord = ...' statement above. Since I am running this logged-off, the above error trapping is doing nothing for me. Any ideas? TIA, I appreciate your help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
MACRO: Selecting "Cancel" from a drop down to copy and paste entirerow to another sheet | Excel Discussion (Misc queries) | |||
MACRO: Selecting "Cancel" from a drop down to copy and paste entirerow to another sheet | Excel Worksheet Functions | |||
problem with Linking workbooks via "copy" and "paste link" | Excel Discussion (Misc queries) | |||
Sheets("Rpt").Copy different results from running in macro than off excel menu?? | Excel Discussion (Misc queries) | |||
Would like to change all "yes" cells in a worksheet with "logged" | Excel Programming |