Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.OleDb
Public Class FrmFromXLS
    Private data As DataTable
    Private Sub FrmFromXLS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Address( row, column, ref_type, ref_style, sheet_name )
=Address(4, 5) would return "$E$4" 
=Address(4, 5, 1) would return "$E$4" 
=Address(4, 5, 2) would return "E$4" 
=Address(4, 5, 3) would return "$E4" 
=Address(4, 5, 4) would return "E4" 
=Address(4, 5, 1, TRUE) would return "$E$4" 
=Address(4, 5, 1, FALSE) would return "R4C5" 
=Address(4, 5, 1, TRUE, "Sheet1") would return "Sheet1!$E$4" 

view plaincopy to clipboardprint?
　　AnsiString GetExcelRangeCode(int row, int col)
　　{
　　AnsiString asExcelCode = "" ;
　　while ( col ) {
　　asExcelCode = (AnsiString)(char)('A'+(col-1)%26) + asExcelCode ;
　　col = (col-1)/26 ;
　　}
　　return asExcelCode ;//+IntToStr(row) ;
　　}