Kalain
03-17-2017, 07:03 AM
Hi Guys,
I have the following problem:
I will import some very large Logs (*.txt files)
Source looks like this:
id:name:IO_group_id:IO_group_name:status:mdisk_grp_id:mdisk_grp_name:capaci ty:type:FC_id:FC_name:RC_id:RC_name:vdisk_UID:fc_map_count:copy_count:fast_ write_state:se_copy_count:RC_change:compressed_copy_count:parent_mdisk_grp_ id:parent_mdisk_grp_name:formatting:encrypt:volume_id:volume_name:function
0:BCAS_IBMi_Template_V7R2:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:::::6005076801818772D000000000000000:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:0:BCAS_IBMi_Template_V7R2:
1:BCAS_BCSTG01_Live_Source_Lun001:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:many:many:::6005076801818772D000000000000003:3:1:not _empty:0:no:1:0:BCSTG01-DEMO-Power:no:no:1:BCAS_BCSTG01_Live_Source_Lun001:
2:BCAS_Mimix01_Target_Lun001:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:::::6005076801818772D000000000000004:0:1:not_empty:0 :no:1:0:BCSTG01-DEMO-Power:no:no:2:BCAS_Mimix01_Target_Lun001:
3:BCAS_IBMi_Template_V7R1:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:::::6005076801818772D000000000000005:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:3:BCAS_IBMi_Template_V7R1:
4:BCAS_BCAS001_Lun001:0:io_grp0:online:0:BCSTG01-DEMO-Power:150.00GB:striped:::::6005076801818772D000000000000006:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:4:BCAS_BCAS001_Lun001:
5:BCAS_BCAS001_Lun002:0:io_grp0:online:0:BCSTG01-DEMO-Power:150.00GB:striped:::::6005076801818772D000000000000007:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:5:BCAS_BCAS001_Lun002:
6:BCAS_BCAS002_Lun001:1:io_grp1:online:0:BCSTG01-DEMO-Power:240.00GB:striped:::::6005076801818772D000000000000008:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:6:BCAS_BCAS002_Lun001:
I've imported them yet with this code:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & lsvdiskf, Destination _
:=Range("$A$1"))
.Name = "lsvdisk_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ":"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh
Now I have the Problem, that I run into a Runtime Error (Not enough ressources).
I think the module is going too big by the import task.
So I will import 10 lines from the file, and paste them (splitted into cells) - and again - and again till the end of file is reached.
I've looked in the WWW - found some ideas - but nothing that fits to me.
Do anyone have an idea? - Or: Is it possible?
Thank you very much!
BR,
Kalain
I have the following problem:
I will import some very large Logs (*.txt files)
Source looks like this:
id:name:IO_group_id:IO_group_name:status:mdisk_grp_id:mdisk_grp_name:capaci ty:type:FC_id:FC_name:RC_id:RC_name:vdisk_UID:fc_map_count:copy_count:fast_ write_state:se_copy_count:RC_change:compressed_copy_count:parent_mdisk_grp_ id:parent_mdisk_grp_name:formatting:encrypt:volume_id:volume_name:function
0:BCAS_IBMi_Template_V7R2:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:::::6005076801818772D000000000000000:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:0:BCAS_IBMi_Template_V7R2:
1:BCAS_BCSTG01_Live_Source_Lun001:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:many:many:::6005076801818772D000000000000003:3:1:not _empty:0:no:1:0:BCSTG01-DEMO-Power:no:no:1:BCAS_BCSTG01_Live_Source_Lun001:
2:BCAS_Mimix01_Target_Lun001:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:::::6005076801818772D000000000000004:0:1:not_empty:0 :no:1:0:BCSTG01-DEMO-Power:no:no:2:BCAS_Mimix01_Target_Lun001:
3:BCAS_IBMi_Template_V7R1:1:io_grp1:online:0:BCSTG01-DEMO-Power:250.00GB:striped:::::6005076801818772D000000000000005:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:3:BCAS_IBMi_Template_V7R1:
4:BCAS_BCAS001_Lun001:0:io_grp0:online:0:BCSTG01-DEMO-Power:150.00GB:striped:::::6005076801818772D000000000000006:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:4:BCAS_BCAS001_Lun001:
5:BCAS_BCAS001_Lun002:0:io_grp0:online:0:BCSTG01-DEMO-Power:150.00GB:striped:::::6005076801818772D000000000000007:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:5:BCAS_BCAS001_Lun002:
6:BCAS_BCAS002_Lun001:1:io_grp1:online:0:BCSTG01-DEMO-Power:240.00GB:striped:::::6005076801818772D000000000000008:0:1:empty:0:no: 0:0:BCSTG01-DEMO-Power:no:no:6:BCAS_BCAS002_Lun001:
I've imported them yet with this code:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & lsvdiskf, Destination _
:=Range("$A$1"))
.Name = "lsvdisk_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ":"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh
Now I have the Problem, that I run into a Runtime Error (Not enough ressources).
I think the module is going too big by the import task.
So I will import 10 lines from the file, and paste them (splitted into cells) - and again - and again till the end of file is reached.
I've looked in the WWW - found some ideas - but nothing that fits to me.
Do anyone have an idea? - Or: Is it possible?
Thank you very much!
BR,
Kalain