473,729 Members | 2,405 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Reading excel file and writing to access table

I was wondering if anyone has had an issue where using vba code to
read an excel file and import the data into an access table some
records are not imported from the excel file. It seems looking at the
data in the excel file that if the first character in the excel file
cell is numeric it will read and write only numeric values only. If I
sort the coloumn in the excel file and the first character in the cell
read is alphanumeric then only alphanumeric values will read and write
in to the table. Any help would be greatly appreciated cause I am
going nuts here. I am using access 2000 and excel 2000. The code I am
using is as follows:

Dim dbExcel As Database
Dim thisdb As Recordset
Dim mydb As Database
Dim ITABLE As Recordset
Dim boolfound As Boolean
Dim i As Integer
Dim intpressedcance l As Integer

On Error GoTo whatthebeephapp ened:

'call open dialog box module
ShowOpen

boolfound = False

DoCmd.Hourglass True

Set mydb = DBEngine.Worksp aces(0).Databas es(0) 'Current DB
Set ITABLE = mydb.OpenRecord set("IMPORTED_T ABLE", dbOpenTable) 'Import
Table

'Code used to open excel sheet as database rather than as excel object
Set dbExcel = OpenDatabase(Fi leName, False, True, "excel 8.0")

'loop used for each worksheet in workbook( there should only be one
but just in case)
'For i = 0 To dbExcel.TableDe fs.Count - 1
strName = dbExcel.TableDe fs(i).Name
Set thisdb = dbExcel.OpenRec ordset(strName, dbOpenSnapshot)

thisdb.MoveLast
thisdb.MoveFirs t
'code to skip importing of headings
'thisdb.Absolut ePosition = 1
Do While Not thisdb.EOF
If Not Left(thisdb.Fie lds(2), 3) = "Nex" Then '
'thisdb.MoveNex t
'ElseIf thisdb.Fields(2 ).Value Then
With ITABLE
.AddNew
.Fields(0).Valu e = thisdb.Fields(3 ).Value ' SERIES
.Fields(1).Valu e = thisdb.Fields(4 ).Value ' VIN
.Fields(2).Valu e = thisdb.Fields(6 ).Value ' ENGINE NO
.Fields(3).Valu e = thisdb.Fields(0 ).Value ' RETAILER
.Fields(6).Valu e = thisdb.Fields(5 ).Value ' REPAIR
ORDER NO.
.Fields(7).Valu e = thisdb.Fields(7 ).Value ' REPAIR
DATE
.Fields(8).Valu e = thisdb.Fields(1 9).Value ' ODOMETER
.Fields(9).Valu e = thisdb.Fields(8 ) ' CAUSAL PART
.Fields(10).Val ue = thisdb.Fields(1 7).Value ' LABOUR
CODE
.Fields(11).Val ue = thisdb.Fields(1 8).Value ' LABOUR
Hours
.Fields(13).Val ue = thisdb.Fields(1 1).Value ' PART
COST
.Fields(14).Val ue = thisdb.Fields(1 2).Value ' LABOUR
COST
.Fields(15).Val ue = thisdb.Fields(1 4).Value ' NET ITEM
COST
.Fields(16).Val ue = thisdb.Fields(1 3).Value ' SALES
TAX
.Fields(17).Val ue = thisdb.Fields(1 6).Value ' TOTAL
.Fields(18).Val ue = thisdb.Fields(1 9).Value ' PAYMENT
.Fields(19).Val ue = thisdb.Fields(2 0).Value ' CASE
TYPE
.Fields(20).Val ue = thisdb.Fields(1 0).Value ' Nature
CODE
.Fields(37).Val ue = thisdb.Fields(9 ).Value ' Cause
code
.Fields(27).Val ue = thisdb.Fields(1 5).Value ' HANDLING
.Fields(29).Val ue = thisdb.Fields(2 4).Value '
AUTHORISED BY
.Fields(30).Val ue = thisdb.Fields(1 ).Value ' Sequence

.Update
End With
End If
thisdb.MoveNext
Loop
'Next i
Nov 12 '05 #1
6 18847
Paul wrote:
I was wondering if anyone has had an issue where using vba code to
read an excel file and import the data into an access table some
records are not imported from the excel file. It seems looking at the
data in the excel file that if the first character in the excel file
cell is numeric it will read and write only numeric values only. If I
sort the coloumn in the excel file and the first character in the cell
read is alphanumeric then only alphanumeric values will read and write
in to the table. Any help would be greatly appreciated cause I am
going nuts here. I am using access 2000 and excel 2000. The code I am
using is as follows:

Dim dbExcel As Database
Dim thisdb As Recordset
Dim mydb As Database
Dim ITABLE As Recordset
Dim boolfound As Boolean
Dim i As Integer
Dim intpressedcance l As Integer

On Error GoTo whatthebeephapp ened:

'call open dialog box module
ShowOpen

boolfound = False

DoCmd.Hourglass True

Set mydb = DBEngine.Worksp aces(0).Databas es(0) 'Current DB
Set ITABLE = mydb.OpenRecord set("IMPORTED_T ABLE", dbOpenTable) 'Import
Table

'Code used to open excel sheet as database rather than as excel object
Set dbExcel = OpenDatabase(Fi leName, False, True, "excel 8.0")

'loop used for each worksheet in workbook( there should only be one
but just in case)
'For i = 0 To dbExcel.TableDe fs.Count - 1
strName = dbExcel.TableDe fs(i).Name
Set thisdb = dbExcel.OpenRec ordset(strName, dbOpenSnapshot)

thisdb.MoveLast
thisdb.MoveFirs t
'code to skip importing of headings
'thisdb.Absolut ePosition = 1
Do While Not thisdb.EOF
If Not Left(thisdb.Fie lds(2), 3) = "Nex" Then '
'thisdb.MoveNex t
'ElseIf thisdb.Fields(2 ).Value Then
With ITABLE
.AddNew
.Fields(0).Valu e = thisdb.Fields(3 ).Value ' SERIES
.Fields(1).Valu e = thisdb.Fields(4 ).Value ' VIN
.Fields(2).Valu e = thisdb.Fields(6 ).Value ' ENGINE NO
.Fields(3).Valu e = thisdb.Fields(0 ).Value ' RETAILER
.Fields(6).Valu e = thisdb.Fields(5 ).Value ' REPAIR
ORDER NO.
.Fields(7).Valu e = thisdb.Fields(7 ).Value ' REPAIR
DATE
.Fields(8).Valu e = thisdb.Fields(1 9).Value ' ODOMETER
.Fields(9).Valu e = thisdb.Fields(8 ) ' CAUSAL PART
.Fields(10).Val ue = thisdb.Fields(1 7).Value ' LABOUR
CODE
.Fields(11).Val ue = thisdb.Fields(1 8).Value ' LABOUR
Hours
.Fields(13).Val ue = thisdb.Fields(1 1).Value ' PART
COST
.Fields(14).Val ue = thisdb.Fields(1 2).Value ' LABOUR
COST
.Fields(15).Val ue = thisdb.Fields(1 4).Value ' NET ITEM
COST
.Fields(16).Val ue = thisdb.Fields(1 3).Value ' SALES
TAX
.Fields(17).Val ue = thisdb.Fields(1 6).Value ' TOTAL
.Fields(18).Val ue = thisdb.Fields(1 9).Value ' PAYMENT
.Fields(19).Val ue = thisdb.Fields(2 0).Value ' CASE
TYPE
.Fields(20).Val ue = thisdb.Fields(1 0).Value ' Nature
CODE
.Fields(37).Val ue = thisdb.Fields(9 ).Value ' Cause
code
.Fields(27).Val ue = thisdb.Fields(1 5).Value ' HANDLING
.Fields(29).Val ue = thisdb.Fields(2 4).Value '
AUTHORISED BY
.Fields(30).Val ue = thisdb.Fields(1 ).Value ' Sequence

.Update
End With
End If
thisdb.MoveNext
Loop
'Next i


I'm winging this, have no idea if this will work.

Perhaps you can type cast the values. Let's say the table requests text
for a field. Type cast the value to a string.
Fields(0).Value = CStr(thisdb.Fie lds(3).Value) ' SERIES
in this case, you alway convert a numeric or string value of Field(3) to a
string value

You can type cast to Lng, Double, Currency, etc if this method works.

Let's say there is a numeric field but some rows have N/A in it. You
might want to do a
If IsNumeric(thisd b.Fields(3).Val ue) Then ...

And you may want to check for nulls
If IsNumeric(thisd b.Fields(3).Val ue) Or IsNull(thisdb.F ields(3).Value)
Then x = NZ(thisdb.Field s(3).Value,0)

Is it possible to use Docmd.TransreSp readsheet ....?

I suppose you could create a link to the spreadsheet and also run an
append query.

And you could create an import/esport spec. If it failed on that, you
know your code needs to be updated.

Nov 12 '05 #2
Salad <oi*@vinegar.co m> wrote in message news:<40******* ********@vinega r.com>...
Paul wrote:
I was wondering if anyone has had an issue where using vba code to
read an excel file and import the data into an access table some
records are not imported from the excel file. It seems looking at the
data in the excel file that if the first character in the excel file
cell is numeric it will read and write only numeric values only. If I
sort the coloumn in the excel file and the first character in the cell
read is alphanumeric then only alphanumeric values will read and write
in to the table. Any help would be greatly appreciated cause I am
going nuts here. I am using access 2000 and excel 2000. The code I am
using is as follows:

Dim dbExcel As Database
Dim thisdb As Recordset
Dim mydb As Database
Dim ITABLE As Recordset
Dim boolfound As Boolean
Dim i As Integer
Dim intpressedcance l As Integer

On Error GoTo whatthebeephapp ened:

'call open dialog box module
ShowOpen

boolfound = False

DoCmd.Hourglass True

Set mydb = DBEngine.Worksp aces(0).Databas es(0) 'Current DB
Set ITABLE = mydb.OpenRecord set("IMPORTED_T ABLE", dbOpenTable) 'Import
Table

'Code used to open excel sheet as database rather than as excel object
Set dbExcel = OpenDatabase(Fi leName, False, True, "excel 8.0")

'loop used for each worksheet in workbook( there should only be one
but just in case)
'For i = 0 To dbExcel.TableDe fs.Count - 1
strName = dbExcel.TableDe fs(i).Name
Set thisdb = dbExcel.OpenRec ordset(strName, dbOpenSnapshot)

thisdb.MoveLast
thisdb.MoveFirs t
'code to skip importing of headings
'thisdb.Absolut ePosition = 1
Do While Not thisdb.EOF
If Not Left(thisdb.Fie lds(2), 3) = "Nex" Then '
'thisdb.MoveNex t
'ElseIf thisdb.Fields(2 ).Value Then
With ITABLE
.AddNew
.Fields(0).Valu e = thisdb.Fields(3 ).Value ' SERIES
.Fields(1).Valu e = thisdb.Fields(4 ).Value ' VIN
.Fields(2).Valu e = thisdb.Fields(6 ).Value ' ENGINE NO
.Fields(3).Valu e = thisdb.Fields(0 ).Value ' RETAILER
.Fields(6).Valu e = thisdb.Fields(5 ).Value ' REPAIR
ORDER NO.
.Fields(7).Valu e = thisdb.Fields(7 ).Value ' REPAIR
DATE
.Fields(8).Valu e = thisdb.Fields(1 9).Value ' ODOMETER
.Fields(9).Valu e = thisdb.Fields(8 ) ' CAUSAL PART
.Fields(10).Val ue = thisdb.Fields(1 7).Value ' LABOUR
CODE
.Fields(11).Val ue = thisdb.Fields(1 8).Value ' LABOUR
Hours
.Fields(13).Val ue = thisdb.Fields(1 1).Value ' PART
COST
.Fields(14).Val ue = thisdb.Fields(1 2).Value ' LABOUR
COST
.Fields(15).Val ue = thisdb.Fields(1 4).Value ' NET ITEM
COST
.Fields(16).Val ue = thisdb.Fields(1 3).Value ' SALES
TAX
.Fields(17).Val ue = thisdb.Fields(1 6).Value ' TOTAL
.Fields(18).Val ue = thisdb.Fields(1 9).Value ' PAYMENT
.Fields(19).Val ue = thisdb.Fields(2 0).Value ' CASE
TYPE
.Fields(20).Val ue = thisdb.Fields(1 0).Value ' Nature
CODE
.Fields(37).Val ue = thisdb.Fields(9 ).Value ' Cause
code
.Fields(27).Val ue = thisdb.Fields(1 5).Value ' HANDLING
.Fields(29).Val ue = thisdb.Fields(2 4).Value '
AUTHORISED BY
.Fields(30).Val ue = thisdb.Fields(1 ).Value ' Sequence

.Update
End With
End If
thisdb.MoveNext
Loop
'Next i


I'm winging this, have no idea if this will work.

Perhaps you can type cast the values. Let's say the table requests text
for a field. Type cast the value to a string.
Fields(0).Value = CStr(thisdb.Fie lds(3).Value) ' SERIES
in this case, you alway convert a numeric or string value of Field(3) to a
string value

You can type cast to Lng, Double, Currency, etc if this method works.

Let's say there is a numeric field but some rows have N/A in it. You
might want to do a
If IsNumeric(thisd b.Fields(3).Val ue) Then ...

And you may want to check for nulls
If IsNumeric(thisd b.Fields(3).Val ue) Or IsNull(thisdb.F ields(3).Value)
Then x = NZ(thisdb.Field s(3).Value,0)

Is it possible to use Docmd.TransreSp readsheet ....?

I suppose you could create a link to the spreadsheet and also run an
append query.

And you could create an import/esport spec. If it failed on that, you
know your code needs to be updated.


Hello Salad and thanks for replying. I have tried case typing to a
string and now I get an invalid use of null. When in debug mode I have
noticed that access reads the data in a cell as null when I know there
is valid data in the cell. I have tried removing the value and
changing the table field properties but still no good. The reason I am
not using the transfer spreadsheet function is due to me wanting to
place specific data from the spreadsheet to specific fields in the
table. There is more than one spreadsheet coming from different
sources but esentially have the same sort of data in different formats
and by importing the data this way I esentially do not have to modify
the reports, queries and relationships that are already applied.
Nov 12 '05 #3
Paul wrote:
I'm winging this, have no idea if this will work.

Perhaps you can type cast the values. Let's say the table requests text
for a field. Type cast the value to a string.
Fields(0).Value = CStr(thisdb.Fie lds(3).Value) ' SERIES
in this case, you alway convert a numeric or string value of Field(3) to a
string value

You can type cast to Lng, Double, Currency, etc if this method works.

Let's say there is a numeric field but some rows have N/A in it. You
might want to do a
If IsNumeric(thisd b.Fields(3).Val ue) Then ...

And you may want to check for nulls
If IsNumeric(thisd b.Fields(3).Val ue) Or IsNull(thisdb.F ields(3).Value)
Then x = NZ(thisdb.Field s(3).Value,0)

Is it possible to use Docmd.TransreSp readsheet ....?

I suppose you could create a link to the spreadsheet and also run an
append query.

And you could create an import/esport spec. If it failed on that, you
know your code needs to be updated.
Hello Salad and thanks for replying. I have tried case typing to a
string and now I get an invalid use of null. When in debug mode I have
noticed that access reads the data in a cell as null when I know there
is valid data in the cell.


That would be a problem.
I have tried removing the value and
changing the table field properties but still no good. The reason I am
not using the transfer spreadsheet function is due to me wanting to
place specific data from the spreadsheet to specific fields in the
table. There is more than one spreadsheet coming from different
sources but esentially have the same sort of data in different formats
and by importing the data this way I esentially do not have to modify
the reports, queries and relationships that are already applied.


I would think you should try to create an import/export spec. At Dev's site
http://www.mvps.org there is a FileOpen diablog under api's. You could then grab
the spreadsheet name and import with a specification. With a specification file,
you can tag a column to a field.

Oh well, I'll make a small test of your routine...see what happens. In the
meantime, you may want a spec file.
Nov 12 '05 #4
Paul wrote:

OK, I have a solution for you. My sample code is below, but that really is not the
solution. I created a table with 4 fields, text, number, and ran it. Worked fine.
Then I remembered the thing about a column with a mixture of text and numberic. And
it did just like you said. The value was Null.

I recalled from the old days or Lotus I'd enter a number in a cell as a number but
if it were an alpha I'd enter an apostrophe before the number to define it as a
label. So I highlited the column that had a mix of alphas and numerics and did a
Format/Cells/Text. Now that the column was formated as text (it states "Text format
cells are treated as text even when a number is in the cell) I ran my routine and it
imported fine.

So...instead of casting at the Access level it appears you need to cast at the Excel
level. Not a big deal. Perhaps you can set it via a routine.

I also think you could get some good Excel functionality (input routines, etc) from
a newsgroup that specialized in VBA for Excel. See also http://www.mvps.org. and
check out the Excel link.

Anyway, here's my code

Sub UpdateX()
Dim dbExcel As Database
Dim thisdb As Recordset
Dim mydb As Database
Dim ITABLE As Recordset
Dim boolfound As Boolean
Dim i As Integer
Dim intpressedcance l As Integer
Dim strName As Variant

On Error GoTo whatthebeephapp ened:

boolfound = False

Set mydb = DBEngine.Worksp aces(0).Databas es(0) 'Current DB
Set ITABLE = mydb.OpenRecord set("Table1", dbOpenTable) 'Import Table

'Code used to open excel sheet as database rather than as excel object
Set dbExcel = OpenDatabase("D :\AccessApps\Te sting.XLS", False, True, "excel
8.0")

'loop used for each worksheet in workbook( there should only be one but just in
case)
strName = dbExcel.TableDe fs(i).Name
Set thisdb = dbExcel.OpenRec ordset(strName, dbOpenSnapshot)

thisdb.MoveLast
thisdb.MoveFirs t
MsgBox "This db count is " & thisdb.RecordCo unt

'code to skip importing of headings
'thisdb.Absolut ePosition = 1
Do While Not thisdb.EOF
With ITABLE
i = i + 1

.AddNew
'starting at field1 since field(0) is an authonumber
.Fields(1) = thisdb.Fields(0 ).Value ' SERIES (mixture text & number)
.Fields(2) = thisdb.Fields(1 ).Value ' SERIES (number)
.Fields(3) = thisdb.Fields(2 ).Value ' VIN (text)
.Fields(4) = thisdb.Fields(3 ).Value ' ENGINE NO (date)
.Update
End With
thisdb.MoveNext
Loop
thisdb.Close
Set thisdb = Nothing
ITABLE.Close
Set ITABLE = Nothing
MsgBox "Done"
Exit_sub:
Exit Sub

whatthebeephapp ened:
MsgBox Err.Description
Resume Exit_sub
End Sub
Nov 12 '05 #5
Salad <oi*@vinegar.co m> wrote in message news:<40******* ********@vinega r.com>...
Paul wrote:

OK, I have a solution for you. My sample code is below, but that really is not the
solution. I created a table with 4 fields, text, number, and ran it. Worked fine.
Then I remembered the thing about a column with a mixture of text and numberic. And
it did just like you said. The value was Null.

I recalled from the old days or Lotus I'd enter a number in a cell as a number but
if it were an alpha I'd enter an apostrophe before the number to define it as a
label. So I highlited the column that had a mix of alphas and numerics and did a
Format/Cells/Text. Now that the column was formated as text (it states "Text format
cells are treated as text even when a number is in the cell) I ran my routine and it
imported fine.

So...instead of casting at the Access level it appears you need to cast at the Excel
level. Not a big deal. Perhaps you can set it via a routine.

I also think you could get some good Excel functionality (input routines, etc) from
a newsgroup that specialized in VBA for Excel. See also http://www.mvps.org. and
check out the Excel link.

Anyway, here's my code

Sub UpdateX()
Dim dbExcel As Database
Dim thisdb As Recordset
Dim mydb As Database
Dim ITABLE As Recordset
Dim boolfound As Boolean
Dim i As Integer
Dim intpressedcance l As Integer
Dim strName As Variant

On Error GoTo whatthebeephapp ened:

boolfound = False

Set mydb = DBEngine.Worksp aces(0).Databas es(0) 'Current DB
Set ITABLE = mydb.OpenRecord set("Table1", dbOpenTable) 'Import Table

'Code used to open excel sheet as database rather than as excel object
Set dbExcel = OpenDatabase("D :\AccessApps\Te sting.XLS", False, True, "excel
8.0")

'loop used for each worksheet in workbook( there should only be one but just in
case)
strName = dbExcel.TableDe fs(i).Name
Set thisdb = dbExcel.OpenRec ordset(strName, dbOpenSnapshot)

thisdb.MoveLast
thisdb.MoveFirs t
MsgBox "This db count is " & thisdb.RecordCo unt

'code to skip importing of headings
'thisdb.Absolut ePosition = 1
Do While Not thisdb.EOF
With ITABLE
i = i + 1

.AddNew
'starting at field1 since field(0) is an authonumber
.Fields(1) = thisdb.Fields(0 ).Value ' SERIES (mixture text & number)
.Fields(2) = thisdb.Fields(1 ).Value ' SERIES (number)
.Fields(3) = thisdb.Fields(2 ).Value ' VIN (text)
.Fields(4) = thisdb.Fields(3 ).Value ' ENGINE NO (date)
.Update
End With
thisdb.MoveNext
Loop
thisdb.Close
Set thisdb = Nothing
ITABLE.Close
Set ITABLE = Nothing
MsgBox "Done"
Exit_sub:
Exit Sub

whatthebeephapp ened:
MsgBox Err.Description
Resume Exit_sub
End Sub


Salad,
Thanks once again for replying to the post. I toke your advice on
board and went back to the source and discovered that the file
presented to me had been "touched up" to look pretty. The actual file
as it is produced from an as 400 type machine formats the xls file in
a text format if that makes any sense. The person touching it up was
formatting all the cells in "general". So i have been able to recieve
teh file untouched and formatted it in text and wolla it works. I
would like to be able to maybe produce a macro in excel that formats
the cells before importation. So that might be my next post if I cant
find anything on there already.
Nov 12 '05 #6
Paul wrote:
Salad,
Thanks once again for replying to the post. I toke your advice on
board and went back to the source and discovered that the file
presented to me had been "touched up" to look pretty. The actual file
as it is produced from an as 400 type machine formats the xls file in
a text format if that makes any sense. The person touching it up was
formatting all the cells in "general". So i have been able to recieve
teh file untouched and formatted it in text and wolla it works. I
would like to be able to maybe produce a macro in excel that formats
the cells before importation. So that might be my next post if I cant
find anything on there already.


Thanks for your update. Your input is appreciated

For help with Excel macros you might want to check out an excel newsgroup. I am sure
there is one specifically dealing with macros.

Nov 12 '05 #7

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

3
1921
by: Utada P.W. SIU | last post by:
Dear All, I have writing a ASP that export an Excel file by using response.contentType = "application/vnd.ms-excel" I can export an Excel However, the grey color gridline is missed, how can I display it again? I won't draw table and set it's border = 1 since there have up to 65536 row in Excel....
7
10781
by: Bonnie R | last post by:
Hello! I am writing VBA code in Access 97 to import an Excel 2000 Spreadsheet. I had hoped to do this using ODBC, but that was not to be, for who knows what reason. The problem is that I import the excel file into a table in Access that I name X. Then I run an append query to import the data into another table. I get an error message that says it "can't append all the records" due
4
33465
by: Hans [DiaGraphIT] | last post by:
Hi! I want to export a dataset to an excel file. I found following code on the net... ( http://www.codeproject.com/csharp/Export.asp ) Excel.ApplicationClass excel = new ApplicationClass(); excel.Application.Workbooks.Add(true); DataTable table = DATASETNAME.Tables;
13
13247
by: nuti | last post by:
Hi all, I am fairly new to VB.I am trying to figure out as how to write a script so that i can read the data from an excel sheet to Access. can u guys please help me out? cheers, nuti
1
11369
by: ShailShin | last post by:
Hi All, I have to convert Excel data to MSAcess .MDB file using VB.NET. VB.NET Code read the Excel file and write it to .MDB file. For the same I have below code, but I am stuck at the writing it to .MDB file. which I have already created with Table as Terms which contains 10 Fields and my Excel contains 10 Fields, Here I want to Extract 3 columns data from Excel to Table. Also it shows error of "syntax error in INSERT INTO Command. ...
9
22501
by: dba123 | last post by:
I need some help and direction on what classes and an example or two (article) on how to read an Excel Worksheet and insert one column into a database table column. I am using .NET 2.0 only. What namespaces and classes should I use and how? -- dba123
4
5515
by: greg | last post by:
Hi, I have a read only access file with a linked table that connects to a sybase database. So I can still add data to the table even though its read only since the table is really in sybase. However, I want to import data from an excel file (either via a macro in excel or access) but I always get an "Error 3051" because the access file is read only. Does anyone know a good workaround to this? I've been using the TransferSpreadsheet...
1
4917
by: ebenl555 | last post by:
i am writing code to import data from an .xls file into a db using an oledbadapter to fill a datatable. I can access most of the values easily using this method. i do however have problems with a couple of lines in the file. when i access these rows, they do not contain any data. when i look at the file, the only difference that i can see is that these problematic rows have merged cells. i have played around with the merging and unmerging...
2
3958
by: i.arda.tezcan | last post by:
Hello, I'm trying to make a web page that will read the xls file and make a table out of it on the web page. I want to change the excel file from time to time and I want the changes to be updated on the website dynamically. If it is possible to do it by writing a few lines of codes into the php file to make it read the data in the xls into the web page, how can it be done? If not, what would be the best way to do it?
0
8921
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
8763
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
9284
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
9202
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
9148
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
8151
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
0
4528
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
4796
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
3
2165
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.