User Profile
JohannesJP
Copper Contributor
Joined 4 years ago
User Widgets
Recent Discussions
To Do - migrating from 365 to 365
Hi I am planning to migrate my business' Godaddy Microsoft 365 email to pure Microsoft 365 email (directly with Microsoft). I do all of my productivity planning in To Do online app and I am concerned that I will lose important information during the migration. Does anyone have experience with a similar migration and can you please tell me which of the following information was successfully transferred? 1. Lists 2. List categories 3. Tasks 4. Task categories 5. Tasks importance (the star) 6. Task notes 7. Task attachments 8. Archived lists and tasks, and their notes and attachments For those who want to know how the migration is going to work: I have bought new 365 Business Standard plans (with an interim domain) directly from Microsoft and created interim users for all my existing users with Godaddy. The next step is to ask Godaddy to create PST files and disconnect my existing domain. This is where I am not getting a clear answer — will the PST files contain all of the information above so that my To Do will appear exactly as it was before? Thanks JohannesVBA import special fixed-width data
Hi all I am working with data in a text file (LS-Dyna keyword format). Most of the fields that I'm interested in are 10-wide. When I used the "437: OEM United Sates" file origin and "---Custom---" delimiter, it mostly imports correctly. However, there is one specific situation where it imports incorrectly. This is when there is no space between the characters in two adjacent fields. Here is an example: In the text-file vs how it imports in the workbook: Here is the VBA code that I use for the import: Sub kfile_sample_import() ' ' kfile_sample_import Macro 'ActiveWorkbook.Queries.Add Name:="kfile_sample", Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Source = Csv.Document(File.Contents(""C:\Users\jopot\OneDrive\Documents\Timestep\Resources\IT\Software\LS-Dyna\Methodology investigations\Welds\0125-FEA-I-S\kfile_sample.k""),9,"""",ExtraValues.Ignore,437)," & Chr(13) & "" & Chr(10) & " #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", " & _ "type text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Changed Type""" With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=kfile_sample;Extended Properties=""""" _ , Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [kfile_sample]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "kfile_sample" .Refresh BackgroundQuery:=False End With End Sub I have placed the sample input file and workbook at the OneDrive link below: https://1drv.ms/u/s!Aqj7uRefFoRzhZ5jtFpXYrb7xQSQTg?e=GsYBC1 Does anyone know how I can avoid this issue please? Thanks! JPVBA file selection dialog for query
Hi all I don't know VBA syntax well and I'm stuck! I recorded the macro below to open data from a text file, but I need to be able to select a different filename every time it runs. How can I add a file selection dialog to the following code that will allow me to select something other than the file 0125-FEA-I-S_reduced_input.txt? Sub Load_k_file() ' ' Select_k_file Macro ' ' ActiveWorkbook.Queries.Add Name:="0125-FEA-I-S_reduced_input", Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Source = Csv.Document(File.Contents(""C:\Users\jopot\OneDrive\Documents\Timestep\Resources\IT\Software\LS-Dyna\Methodology investigations\Welds\0125-FEA-I-S\0125-FEA-I-S_reduced_input.txt""),9,"""",ExtraValues.Ignore,437)," & Chr(13) & "" & Chr(10) & " #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}" & _ ", {""Column4"", type text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Changed Type""" With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=0125-FEA-I-S_reduced_input;Extended Properties=""""" _ , Destination:=Range("$A$3")).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [0125-FEA-I-S_reduced_input]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "_0125_FEA_I_S_reduced_input" .Refresh BackgroundQuery:=False End With End Sub Thanks! JP
