Question

ASAP. I need VBA code, for Excel please

5. Create text file with notepad. Each line contains only one word. Open it and,

if the word begins with capital letter, output it to column A, otherwise in

column B.

Answer 1

VBA Code

Sub checkFirstLatter()
Dim Filepath As String 'this variable stores the file path
Filepath = "words.txt" 'here is the full path of your file (here my vba file and txt file are in same so only giving file name)
Dim strFirstChar As String 'this string variable stores the first char of word
Dim intASCII As Integer 'intger variable store the ascii value of char
  
Open Filepath For Input As #1 'open the file
rowANumber = 1
rowBNumber = 1
  
Do Until EOF(1) 'loop untill the End of file
Line Input #1, wordFromFile 'read the line and store in the wordFromFile variable
strFirstChar = Left$(wordFromFile, 1) 'extract the first char from the wordFromFile and store in the strFirstChar
intASCII = Asc(strFirstChar) 'gets the ascii value of that char
Select Case intASCII 'using case
Case 65 To 90 'ASCII Code for A to Z
Cells(rowANumber, 1).Value = wordFromFile
rowANumber = rowANumber + 1
Case Else
Cells(rowBNumber, 2).Value = wordFromFile
rowBNumber = rowBNumber + 1
End Select
Loop
Close #1
End Sub

Text file with words

output

Code snaps

If you have any query regarding the code please ask me in the comment i am here for help you. Please do not direct thumbs down just ask if you have any query. And if you like my work then please appreciates with up vote. Thank You.