![]() 'Change ScreenUpdating, Calculation and EnableEventsįName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", _ ![]() "kernel32" (ByVal lpPathName As String) As Longĭeclare Function SetCurrentDirectoryA Lib _ĭim mybook As Workbook, BaseWks As Worksheetĭim sourceRange As Range, destrange As Range Note: Copy all code below in a normal module of your workbookĭeclare PtrSafe Function SetCurrentDirectoryA Lib _ So, what do you have now, all Excel files or all text files? I have uploaded an attachment where the actual result in dummy worksheet(paste as delimited values - colon & blank) should look like and the excel invoice tracker. OAVDoc.Close (1) '(1)=Do not save changes If oAVDoc.Open(fName.Text, "") = True Then The AcroAVDoc.Open function returns a true/false Set oPDDoc = CreateObject("AcroExch.PDDoc") Set oAVDoc = CreateObject("AcroExch.AVDoc") Set oPDFApp = CreateObject("AcroExch.App") Set wbTransfer = Workbooks("transfer.xlsm")ĭOpenCol = wsNew.Cells(1, Columns.Count).End(xlToLeft).Column + 1 I also tried replacing the ("path") to my folder path where I save all the invoices but it doesn't work. Line Error: For Each fName In Range("path") I couldn't seem to understand this line, so it is returning me anĮrror: 1004 Method 'Range' of object'_Global failed I tried running this code from a thread posted 3 years ago: SaveOk = sDoc.Save(1, DOC_FOLDER & "\OK_Formular" & wksTab1.Cells(1, 1).Value & ".pdf")ĭesign: I will need to copy the pdf and paste it to a dummy worksheet then paste it to my Excel invoice tracker. 'If the Maximize line is not there, this is where I receive error about document viewer Set FormApp = CreateObject("AFormAut.App") avdoc.Show works the same as Maximize it seems. ![]() However, I get an error without this line. X = avdoc.Open(DOC_FOLDER & "\formular_ve01a.pdf", "temp") Acrobat still has not flashed on my screen Set avdoc = CreateObject("AcroExch.AVDoc") ![]() Set gPDDoc = CreateObject("AcroExch.PDDoc") Const DOC_FOLDER As String = "C:\Users\Frank\Documents" ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |