pywin32 - saving excel file as tab-delimited text file without quotes -

-


pywin32 - saving excel file as tab-delimited text file without quotes -

i have excel 2010 workbook. need save used range of each of worksheets tab-delimited text file no quotes, same filename workbook , extension given worksheet name.

note excel stupidly surrounds value quotes whenever sees comma, though delimiter tab; other that, normal "save as" / "text (tab delimited)" fine.

i prefer using vba code within excel.

if there python solution, i'd interested too. @ point pywin32 back upwards python 3 experimental, not sure can utilize it.

ok here complex routine wrote couple of months 1 of clients. code exports excel worksheet fixed width file without quotes. screenshots attached. sure code can made improve :)

tried , tested

option explicit '~~> alter relevant output filename , path const stroutputfile string = "c:\output.csv" sub sample() dim ws worksheet dim rng range dim myarray() long, maxlength long dim ff long, long, lastrow long, lastcol long dim stroutput string on error goto whoa application.screenupdating = false '~~> alter respective sheet set ws = sheets("sheet1") lastcol = ws.cells(1, columns.count).end(xltoleft).column '~~> loop through each column max size of field = 1 lastcol maxlength = getmaxlength(ws, i) redim preserve myarray(i) myarray(i) = maxlength next ff = freefile '~~> output file open stroutputfile output #ff '~~> write text file ws lastrow = .range("a" & rows.count).end(xlup).row each rng in .range("a1:a" & lastrow) rng = 1 ubound(myarray) '~~> insert delimiter here if text has spaces stroutput = stroutput & " " & left(.offset(0, i-1).text & _ string(myarray(i), " "), myarray(i)) next print #ff, mid(trim(stroutput), 1) stroutput = empty end next rng end letscontinue: on error resume next close #ff on error goto 0 application.screenupdating = true exit sub whoa: msgbox err.description resume letscontinue end sub '~~> function max size public function getmaxlength(ws worksheet, col long) long dim lastrow long, j long getmaxlength = 0 lastrow = ws.range("a" & ws.rows.count).end(-4162).row j = 1 lastrow if len(trim(ws.cells(j, col).value)) > getmaxlength _ getmaxlength = len(trim(ws.cells(j, col).value)) next j end function

excel-vba pywin32

Comments

Post a Comment

Popular posts from this blog

How do I check if an insert was successful with MySQLdb in Python? -

-
How do I check if an insert was successful with MySQLdb in Python? - i have code: cursor = conn.cursor() cursor.execute(("insert new_files (videos_id, filename, " "is_processing) values (%s,%s,1)"), (id, filename)) logging.warn("%d", cursor.rowcount) if (cursor.rowcount == 1): logging.info("inserted values %d, %s", id, filename) else: logging.warn("failed insert values %d, %s", id, filename) cursor.close() fun is, cursor.rowcount always one, though updated database create videos_id unique key. is, insert fails because in tests same videos_id going appear (and when check database, nil inserted). whatever reason, rowcount 1 - logging.warn have spits out rowcount of 1. so, question: can utilize rowcount work out if insert went fine? if so, (presumably) doing wrong? otherwise, how check if insert went fine? your code not commit after modifications (your modifications rolled back). should...
Read more

delphi - blogger via idHTTP : error 400 bad request -

-
delphi - blogger via idHTTP : error 400 bad request - i'm trying post blogger using idhttp component, however, i'm getting "http/1.0 400 bad request" error. procedure tform1.button1click(sender: tobject); var request,response,req : tstringlist; auth,blogid : string; begin blogid := '00000000000000000000000'; request := tstringlist.create; response := tstringlist.create; req := tstringlist.create; idhttp1.request.connection := 'keep-alive'; idhttp1.request.contenttype := 'application/x-www-form-urlencoded'; idssliohandlersocket1.ssloptions.method := sslvsslv23; request.clear(); request.values['accounttype'] := 'google'; request.values['email'] := 'xxx@gmail.com'; request.values['passwd'] := 'yyy'; request.values['service'] := 'blogger'; response.text :=idhttp1.post('https://www.google.com/accounts/clientlogin',request); auth := resp...
Read more

postgresql - ERROR: operator is not unique: unknown + unknown -

-
postgresql - ERROR: operator is not unique: unknown + unknown - i have postgis database , have compute new values rows in new column. these values should average of values of several columns. query: insert bdps (da_m) values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7')); in query bdps database, da_m new column , da_1 da_7 existing columns have double precision type. da_m created using alter table bdps add together column da_m double precision; i next error: error: operator not unique: unknown + unknown line 2: values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7... ^ hint: not take best candidate operator. might need add together explicit type casts. ********** error ********** error: operator not unique: unknown + unknown sql state: 42725 hint: not take best candidate operator. might need add togethe...
Read more