The internal ACT file format is far different than Excel format. Here's a sample VBA script that will allow you to transform your Excel file in an ACT (ACcounTs) file available for IA. Once created, you'll be able to use the ACT file from Advanced mode / Add/Modify user accounts.
Code:
Sub QuoteCommaExport()
' Dimension all variables. Dim DestFile As String Dim FileNum As Integer Dim ColumnCount As Integer Dim RowCount As Integer
' Prompt user for destination file name. DestFile = InputBox("Enter the destination filename" _ & Chr(10) & "(with complete path):", "Simple Excel To IDEAL Administration Exporter")
' Obtain next free file handle number. FileNum = FreeFile()
' Turn error checking off. On Error Resume Next
' Attempt to open destination file for output. Open DestFile For Output As #FileNum
' If an error occurs report it and end. If Err <> 0 Then MsgBox "Cannot open filename " & DestFile End End If
' Turn error checking on. On Error GoTo 0
' Loop for each row in selection. For RowCount = 1 To Selection.Rows.Count
' Loop for each column in selection. For ColumnCount = 1 To Selection.Columns.Count
If (ColumnCount = 1) Then Print #FileNum, "" & Selection.Cells(RowCount, ColumnCount).Text End If If (ColumnCount = 2) Then Print #FileNum, "" & Selection.Cells(RowCount, ColumnCount).Text End If If ColumnCount = Selection.Columns.Count Then Print #FileNum, "" Print #FileNum, End If ' Start next iteration of ColumnCount loop. Next ColumnCount ' Start next iteration of RowCount loop. Next RowCount ' Close destination file. Close #FileNum End Sub
How to use this sample script? First of all, this sample VBA script assumes that your Excel file looks like bellow: A B User1 Pass1 User2 Pass2 User3 Pass3 Select all the columns and rows, then click on the menu "Tools", point to "Macro", and then click "Visual Basic Editor" (or simply press ALT+F11).
In the Visual Basic Editor, click "Module" on the "Insert" menu. Copy/paste the previous sample code in the module sheet. Select Execute, Execute and enter the destination file name (example "D:\Work\My_accounts.act") when you're prompted for.
You can add other fields like groups, comment, ... just add the columns in Excel and modify the script to manage your new columns!
|