Microsoft provides programming examples for illustration only, without warranty either
expressed or implied, including, but not limited to, the implied warranties of
merchantability and/or fitness for a particular purpose. This article assumes
that you are familiar with the programming language being demonstrated and the
tools used to create and debug procedures. Microsoft support professionals can
help explain the functionality of a particular procedure, but they will not
modify these examples to provide added functionality or construct procedures to
meet your specific needs.
If you have limited programming experience, you may
want to contact a Microsoft Certified Partner or Microsoft Advisory Services. For more information, visit these Microsoft Web sites:
Microsoft Certified
Partners -
https://partner.microsoft.com/global/30000104Microsoft Advisory Services -
http://support.microsoft.com/gp/advisoryservice
For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:
http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
To work around this behavior, define your data with the defined name
"Database," or move your data so that its upper-left corner is located in
any of the four cells in the range A1:B2.
To Define Your Data with the Defined Name "Database"
- Select the range that contains your data.
- On the Insert menu, point to Name, and then click Define.
- In the Name box, type Sheetname!Database, where Sheetname is the name of the active worksheet.
- Click OK to accept the change.
When you run the
ShowDataForm method and specify the worksheet,
the data form is displayed with the correct data.
To automate the preceding process, select the data that you want included in your database (including column headings), and then include the following in your Visual Basic procedure:
ActiveWorkbook.Names.Add Name:=ActiveSheet.Name & _
"!Database", RefersToR1C1:=Selection
ActiveSheet.ShowDataForm
NOTE: For information about variations that you can use for this code, see the "More Information" section.