Solved

using OLE to access Excel, Language problem!!

Posted on 1998-12-02
1
578 Views
Last Modified: 2012-05-04
I'm using Delphi to import some stuff into Excel. (Using OLE!)

Because of the language problem (each country needs different coding) in need to check what version (language) of Excel the user has.

In word you can use the appInfo function, is there also a function i can use for Excel????

0
Comment
Question by:rick_mulder
1 Comment
 
LVL 3

Accepted Solution

by:
frazer earned 10 total points
ID: 1614768
hi,

The code you need is....

Sub AppInfo()
    Dim a
    a = Application.International(xlCountryCode)
End Sub


you can replace xlcountrycode with a variety options.....

xlCountryCode      Long      Country version of Microsoft Excel.
xlCountrySetting      Long      Current country setting in the Windows Control Panel, or the country number as determined by your Macintosh system software.
xlDecimalSeparator      String      Decimal separator.
xlThousandsSeparator      String      Zero or thousands separator.
xlListSeparator      String      List separator.
xlUpperCaseRowLetter      String      Uppercase row letter (for R1C1-style references).
xlUpperCaseColumnLetter      String      Uppercase column letter.
xlLowerCaseRowLetter      String      Lowercase row letter.
xlLowerCaseColumnLetter      String      Lowercase column letter.
xlLeftBracket      String      Character used instead of the left bracket ([) in R1C1-style relative references.
xlRightBracket      String      Character used instead of the right bracket (]) in R1C1-style references.
xlLeftBrace      String      Character used instead of the left brace ({) in array literals.
xlRightBrace      String      Character used instead of the right brace (}) in array literals.
xlColumnSeparator      String      Character used to separate columns in array literals.
xlRowSeparator      String      Character used to separate rows in array literals.
xlAlternateArraySeparator      String      Alternate array item separator to use if the current array separator is the same as the decimal separator.
xlDateSeparator      String      Date separator (/ in U.S. version).
xlTimeSeparator      String      Time separator (: in U.S. version).
xlYearCode      String      Year symbol in number formats (y in U.S. version).
xlMonthCode      String      Month symbol (m in U.S. version).
xlDayCode      String      Day symbol (d in U.S. version).
xlHourCode      String      Hour symbol (h in U.S. version).
xlMinuteCode      String      Minute symbol (m in U.S. version).
xlSecondCode      String      Second symbol (s in U.S. version).
xlCurrencyCode      String      Currency symbol ($ in U.S. version).
xlGeneralFormatName      String      Name of the General number format.
xlCurrencyDigits      Long      Number of decimal digits to use in currency formats.
xlCurrencyNegative      Long      Currency format for negative currency values:0 = ($x) or (x$)1 = -$x or -x$2 = $-x or x-$3 = $x- or x$-Note that the position of the currency symbol is determined by xlCurrencyBefore.
xlNoncurrencyDigits      Long      Number of decimal digits to use in noncurrency formats.
xlMonthNameChars      Long      Always returns three for backwards compatibility. In Microsoft Excel 97, short month names are read from Microsoft Windows and can have any length.
xlWeekdayNameChars      Long      Always returns three for backwards compatibility. In Microsoft Excel 97, short weekday names are read from Microsoft Windows and can have any length.
xlDateOrder      Long      Order of date elements:0 = month-day-year1 = day-month-year2 = year-month-day
xl24HourClock      Boolean      True if using 24-hour time, False if using 12-hour time.
xlNonEnglishFunctions      Boolean      True if not displaying functions in English.
xlMetric      Boolean      True if using the metric system, False if using the English measurement system.
xlCurrencySpaceBefore      Boolean      True if a space is added before the currency symbol.
xlCurrencyBefore      Boolean      True if the currency symbol precedes the currency values, False if it follows them.
xlCurrencyMinusSign      Boolean      True if using a minus sign for negative numbers, False if using parentheses.
xlCurrencyTrailingZeros      Boolean      True if trailing zeros are displayed for zero currency values.
xlCurrencyLeadingZeros      Boolean      True if leading zeros are displayed for zero currency values.
xlMonthLeadingZero      Boolean      True if a leading zero is displayed in months (when months are displayed as numbers).
xlDayLeadingZero      Boolean      True if a leading zero is displayed in days.
xl4DigitYears      Boolean      True if using four-digit years, False if using two-digit years.
xlMDY      Boolean      True if the date order is month-day-year for dates displayed in the long form, False if the date order is day-month-year.
xlTimeLeadingZero      Boolean      True if a leading zero is displayed in times.
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Article by: dandraka
There are several quick shortcuts that can make your life easier in Microsoft Programs.  These simple tips and tricks will your work more productive and you faster at completing your tasks! MS Word (1) Creating Re-usable Scraps You can create s…
This article will show you how to use shortcut menus in the Access run-time environment.
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now