excel vba - VBA to prompt for DAT with no delimitation, add new sheet, and import the DAT -


the code prompts user select excel file , 5 different dat files. excel file loaded onto sheet, , new sheets supposed added each of dat files imported to. excel file loads correctly, program errors out @ first dat file import attempt.

the error: "run-time error '1004': application-defined or object-defined error".

this error occurs:

activesheet.querytables.add(connection:= _     difn, destination _

this rest of code:

' prompt user files     cafn = application.getopenfilename("excel files (*.xlsx), *.xlsx")     difn = application.getopenfilename("esdi dat file (*.dat), *.dat")     fofn = application.getopenfilename("esfo dat file (*.dat), *.dat")     fsfn = application.getopenfilename("esfs dat file (*.dat), *.dat")     ipfn = application.getopenfilename("esip dat file (*.dat), *.dat")     ppfn = application.getopenfilename("espp dat file (*.dat), *.dat")  ' load combined     dim x workbook     dim y workbook      '## open both workbooks first:     set y = activeworkbook     set x = workbooks.open(cafn)      'now, transfer values x y:     x.sheets("sheet1").usedrange         'now, paste y worksheet:         y.sheets("start").range("a1").resize( _             .rows.count, .columns.count) = .value     end      'close x:     x.close      y.sheets("start").name = "combined all"  ' load dat files     activeworkbook.worksheets.add.name = "esdi"     activesheet.querytables.add(connection:= _         difn, destination _         :=range("$a$1"))         .name = "esdi"         .fieldnames = true         .rownumbers = false         .filladjacentformulas = false         .preserveformatting = true         .refreshonfileopen = false         .refreshstyle = xlinsertdeletecells         .savepassword = false         .savedata = true         .adjustcolumnwidth = true         .refreshperiod = 0         .textfilepromptonrefresh = false         .textfileplatform = 437         .textfilestartrow = 1         .textfileparsetype = xlfixedwidth         .textfiletextqualifier = xltextqualifierdoublequote         .textfileconsecutivedelimiter = false         .textfiletabdelimiter = true         .textfilesemicolondelimiter = false         .textfilecommadelimiter = false         .textfilespacedelimiter = false         .textfilecolumndatatypes = array(9, 1, 1, 9, 1, 9, 9, 1, 9, 9, 9)         .textfilefixedcolumnwidths = array(3, 7, 7, 2, 10, 8, 3, 8, 40, 2)         .textfiletrailingminusnumbers = true         .refresh backgroundquery:=false     end

this code worked me (thank yowe3k , scott holtzman pointing me in right direction!):

' prompt user files dim cafn string dim difn string dim fofn string dim fsfn string dim ipfn string dim ppfn string  cafn = application.getopenfilename("excel files (*.xlsx), *.xlsx") difn = application.getopenfilename("esdi dat file (*.dat), *.dat") fofn = application.getopenfilename("esfo dat file (*.dat), *.dat") fsfn = application.getopenfilename("esfs dat file (*.dat), *.dat") ipfn = application.getopenfilename("esip dat file (*.dat), *.dat") ppfn = application.getopenfilename("espp dat file (*.dat), *.dat")  ' load combined dim x workbook dim y workbook  '## open both workbooks first: set y = activeworkbook set x = workbooks.open(cafn)  'now, transfer values x y: x.sheets("sheet1").usedrange     'now, paste y worksheet:     y.sheets("start").range("a1").resize( _         .rows.count, .columns.count) = .value end  'close x: x.close  y.sheets("start").name = "combined all"   ' load dat files     activeworkbook.worksheets.add.name = "esdi"     msgbox ">>>" & "text;" & difn & "<<<"     sheets("esdi").querytables.add(connection:="text;" & difn, destination:=range("$a$1"))         .name = "esdi"         .fieldnames = true         .rownumbers = false         .filladjacentformulas = false         .preserveformatting = true         .refreshonfileopen = false         .refreshstyle = xlinsertdeletecells         .savepassword = false         .savedata = true         .adjustcolumnwidth = true         .refreshperiod = 0         .textfilepromptonrefresh = false         .textfileplatform = 437         .textfilestartrow = 1         .textfileparsetype = xlfixedwidth         .textfiletextqualifier = xltextqualifierdoublequote         .textfileconsecutivedelimiter = false         .textfiletabdelimiter = true         .textfilesemicolondelimiter = false         .textfilecommadelimiter = false         .textfilespacedelimiter = false         .textfilecolumndatatypes = array(9, 1, 1, 9, 1, 9, 9, 1, 9, 9, 9)         .textfilefixedcolumnwidths = array(3, 7, 7, 2, 10, 8, 3, 8, 40, 2)         .textfiletrailingminusnumbers = true         .refresh     end

Comments

Post a Comment

Popular posts from this blog

jOOQ update returning clause with Oracle -

according http://www.jooq.org/doc/3.8/manual/sql-building/sql-statements/update-statement/ jooq doesn't support returning clause in update statements databases except firebird , postgres. does know, still correct oracle jooq? according oracle's documentation, oracle db supports returning clase delete, insert, or update statements. incorrect manual you're right - manual wrong , should fixed: https://github.com/jooq/jooq/issues/5470 single row update returning jooq 3.8 added support single row update .. returning statements. internally, uses callablestatement , pl/sql block of form: begin update "my_table" set "my_table"."column" = 'xyz' "my_table"."id" = 1 returning "my_table"."id", "my_table"."column" ?, ?; ? := sql%rowcount; end; the relevant issue is: https://github.com/jooq/jooq/issues/5190 multi row update returning a...
Read more

java - Warning equals/hashCode on @Data annotation lombok with inheritance -

i have entity inherits other. on other hand, i'm using lombok project reduce boilerplate code, put @data annotation. annotation @data inheritance produces next warning: generating equals/hashcode implementation without call superclass, though class not extend java.lang.object. if intentional, add '@equalsandhashcode(callsuper=false)' type. is advisable add annotation @equalsandhashcode (callsuper = true) or @equalsandhashcode (callsuper = false) ? if not added, 1 callsuper=false or callsuper=true ? the default value false . 1 if don't specify , ignore warning. yes, recommended add @equalsandhashcode annotation on @data annotated classes extend else object. cannot tell if need true or false , depends on class hierarchy, , need examined on case-by-case basis. however, project or package, can configure in lombok.config call super methods if not direct subclass of object. lombok.equalsandhashcode.callsuper = call for configuration system ...
Read more

java - BasicPathUsageException: Cannot join to attribute of basic type -

i using java 8 jpa (hibernate 5.2.1). have clause works perfectly, until introduce clause make use foreign key table values too. i getting following error: basicpathusageexception: cannot join attribute of basic type i think problem related fact have join table, , not sure how create join using join table. employee - employee_category - category model (employee.java): @manytomany(cascade = cascadetype.all, fetch=fetchtype.eager) @jointable ( name="employee_category", joincolumns={ @joincolumn(name="emp_id", referencedcolumnname="id") }, inversejoincolumns={ @joincolumn(name="cat_id", referencedcolumnname="id") } ) private set<category> categories; model (category.java): @id private string id; jpa when introduce following code, fails error above (i think problem new piece of code): join<t, category> category = from.join("id"); predicates.add(criteriabuilder.like(category....
Read more