Message-ID:

The generation of random numbers is too important to be left to chance.

devel / comp.lang.xharbour / assign variable to a date cell (excel)

assign variable to a date cell (excel)

<7d735ad9-2dc1-43f0-a682-7328cd1943efn@googlegroups.com>

https://www.rocksolidbbs.com/devel/article-flat.php?id=17001&group=comp.lang.xharbour#17001

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a0c:aa1d:0:b0:443:ce3d:55a4 with SMTP id d29-20020a0caa1d000000b00443ce3d55a4mr2154653qvb.22.1648959075813;
Sat, 02 Apr 2022 21:11:15 -0700 (PDT)
X-Received: by 2002:a05:620a:1432:b0:67d:36cd:1f16 with SMTP id
k18-20020a05620a143200b0067d36cd1f16mr10195458qkj.166.1648959075658; Sat, 02
Apr 2022 21:11:15 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Sat, 2 Apr 2022 21:11:15 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=106.214.163.122; posting-account=jZAeNwoAAABYWjMRM-FfqKkHfC3Iph0l
NNTP-Posting-Host: 106.214.163.122
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <7d735ad9-2dc1-43f0-a682-7328cd1943efn@googlegroups.com>
Subject: assign variable to a date cell (excel)
From: timecosting@gmail.com (timepro timesheet)
Injection-Date: Sun, 03 Apr 2022 04:11:15 +0000
Content-Type: text/plain; charset="UTF-8"

by: timepro timesheet - Sun, 3 Apr 2022 04:11 UTC

hi:

my app is in xhb+wvw+ps32+dbf

1. date field in excel cell (this excel file should be open only for reading.)
cdest=diskname()+':\tax\einvoice\creditnote\'+creditnotefilename+'xlsx'
oexcel=createobject('excel.application')
oexcel:workbooks:open(cdest)
osheet=oexcel:activesheet
xcelRows:=osheet:UsedRange:Rows:Count()
for exxx=2 to xcelrows
* EINVDATE:=osheet:cells(exxx,7):value
-type(einvdate) returns 'C', inspite of being a date cell*
-so i have to code this: if type('einvdate')='C';einvdate=ctod(einvdate);end
* next
oexcel:quit() & AFTER QUIT, STILL PRESENT IN TASKMANAGER
oExcel = NIL
release oExcel

2. if 'oexcel:activeworkbook:saveas(xlsname)' saves the open excel file.
what is the command (from within the app) to 'not save' any changes made and close the file.

3.how to edit/write on a protected cell from within my app.

4.how to find if an excel file is 'already' open by another-user/you.

thank you

Subject	Author
assign variable to a date cell (excel)	timepro timesheet