Solved

using OLE to access Excel, Language problem!!

Posted on 1998-12-02
1
579 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Some time ago I was asked to create a VBA function that would calculate a check digit for an input number, using the following procedure: First, sum up all the individual digits in the number If that sum value has more than one digit, then sum up …
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

929 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

9 Experts available now in Live!

Get 1:1 Help Now